MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R 0 BAK 0 BAKXBATMANOLA 1 !"#BATMANOLB $BATMANOLC %&'()*+,-./01234BATMANOLC 56789:;<=>?@ABCDBATMANOLC EFG0 HIJKLMNOPQRSTUVW0 XXYZ[\]^_`abBATMANOL cdefghijklmnopqrBATMANOL Xstuvwxyz{|}DISK ~DISK XPLUS3DOSk7kMena(i)=(i/256) $b(n,a)=n-(a*256) kLET bytealto=FN a(x): LET bytebajo=FN b(x,bytealto): POKE ADR,bytebajo: LET adr=adr+1: POKE adr,bytealto: 745:500 Movimiento:lii,coi inicial. lia,coa actual - lif,cof final. lan, can anterior - FT orientacion ISP indice sprite ispi = indice sprite inicial. ispf = final isp = I.sprite >a$=x$(ispisp+1):b$=z$(ispisp+1):c$=a$:d$=b$ <1;8;8;lia,coa;a$;lia+1,coa;b$ 7(mov=2lia=lif)(mov2coa=cof)44, rlan=lia:can=coa:coa=coa+(ftmov=1):lia=lia+(ftmov=2)+(ftymov=3):coa=coa+(ftmov=3) $flan,can;8;8;8;1;c$;lan+1,can;d$;lia,coa;a$;lia+1,coa;b$; &2mov=1isp=isp+2:isp=ispfisp=ispi (>c$=a$:d$=b$:a$=x$(ispisp+1):b$=z$(ispisp+1) * 24 , .2+++++ imprime en pos actual, sprite actual +++++ 05lia,coa;8;8;a$;lia+1,coa;b$: 2>lia,coa;8;8;1;a$;lia+1,coa;b$: d:0:0::e$="" gFX$="DEHIHIHIHIDEPQTUTUXYXYXYXYXY":Z$="FGNOLMNOJK<=RS>?VW^_Z[^_\]^_" j{fty=0:ci=0:cf=31:li=0:lf=15:2075:pa=2:ik=0:2000:1100L:pa=3:t$="09:27 PM, Lloricatown...":2010:2035:t$="En plena ronda nocturna (bueno, no muy nocturna)...":2010:2035:t$="Batmanolo,guardian de Lloricatown, ve un destello sospechoso...":2010:2035 misp=13 :2035:pa=2:lia=2:coa=28:mov=2:cof=28:lif=11 :ft=1:10 :lia,coa;1;8;8;a$;lia+1,coa;b$ pispi=19:isp=17:ispf=27:lia=11 :coa=28:cof=23:ft=-1:mov=1:10 :a$="TU":b$="VW":480 s}i=1502:13 ,16;1;0;6;"":13 ,16;1;5;0;"":i vjt$="Anda! un destello sospechoso!... mmMMmm algo raro pasa en OjetenLabs. Echare un vistazo":2010 yisp=13 :pa=3:2035:pa=2:502:isp=17:ispf=27:mov=1:ft=-1:lia=11 :coa=23:cof=21:10 :b$=d$:502 |isp=15:mov=3Track-Info  R :ft=-1:fty=-1:lia=11 :lif=7:coa=21:cof=17:10 :502 isp=13 :lia=8:coa=17:mov=2:lif=13 :ft=1:10 :lia,coa;0;2;"";lia+1,coa;a$:2060  ****** vinyeta 2 ***** Vci=1:cf=26:li=1:lf=14:2075:pa=2:2000 1500 t$="Mientras tanto,En los laboratorios ojetenlabs":2010:t$="El doctor Jose Antonio Malvado ultima su plan para dominar la ciudad":2010:9100# 0:J=02:I=810 :I,15-J;5;0;"";I,16+J;"":I:0.01z# >,45-:J Y$="-1":W$="23":i=13:9 ,19-i;4;0;Y$(1i);7;10 ,19-i;W$(1i):30:i li=13:9 ,17;4;" ":20:9 ,17;4;"-1":20:i 100d:J=02:I=810 :I,12 +J;5;0;"";I,19-J;"":I:0.01z# >,25:J 2060  +++++++ vinyeta 3 +++++++ Wci=2:cf=31:li=16:lf=20:2075:pa=0:2000 L18,28;4;0;"-1";19,28;7;"23" li=16:ci=2:cf=28:t$="colarse ha sido facil, ahora conectare mi gas mutagenico en la camara":2010:cf=31:2060  ++++++++ vinyeta 4 ++++++ Jci=4:cf=30:li=3:lf=14:2075:1200 2i=411 :i,20;0;"";:i A10 ,20;0;0;"";11 ,20;"" ni=11 4-1:i,20;6;0;1;"":0.01z# >,10 +i:i:100d t$="El mutageno transformaraa este pringao en un mutante servicial":2010:11 ,16;" ";12 ,16;"""#":8888" Xi=711 :i,20;6;0;1;1;"";:i:100d #i=120:8;8;8;10 ,20;"x";11 ,20;"":0.01z# >,20+i:8;8;8;10 ,20;"";11 ,20;"y":0.01z# >,30+i:i:10 ,20;8;8;8;"n";11 ,20;"o" t$="Funciona! Cargare el gasen los misiles que he robado de Ojetenlabs... ":2010:t$="y he llevado a la base secreta a las afueras deLloricaTown":2010 -->entra batmanolo -11 ,5;"E";12 ,5;"G" :t$="Todo Lloricatown sera mutante!!..."+f$:2010 /11 ,5;"DE";12 ,5;"FG" >t$="Todo Lloricatown Estara a mis ordenes..."+f$:2010 Zt$="Y para? Aburrirlos con tus frases?":ci=5:li=7:cf=26:2010 o11 ,17;"-1";12 ,17;"23":t$="que?":li=10 :ci=18:cf=24:2010 %i=710 :11 ,i;"/" $i>711 ,i-1;"" 0.01z# >,35# i >ci=4:cf=30:li=3:lf=14:2060  ++++++++ Vinyeta 5 +++++++++ >li=1:lf=10 :ci=1:cf=14:2075 8,2;1;"eeeeeeeeeee";9 ,2;"":9993 ':5,6;6;0;"&'";6,6;"()";4,6;"";7,6;"":9996 ' i100d:i=25:5,i;"/":0.01z# >,35#:i:5,i;6;0;"" N9993 ':li=5:co=7:a$="&'":b$="()":1900l:9996 ' >li=1:lf=10 :ci=1:cf=14:2060  ++++++++ vinyeta 6 +++++++ Vli=1:lf=4:ci=14:cf=29:pa=0:2075:2000 2,26;4;0;"-1";3,26;7;"23":t$="nooo! El mutageno!":li=1:ci=14:cf=26:2010:cf=29:2060  ++++++++ vinyeta 7 ++++++ nli=5:lf=14:ci=1:cf=30:2075:pa=7:ik=0:2000:1202 13 ,2;5;0;"eee";11 ,8;0;7;"DE";12 ,8;"FG";11 ,15;"";12 ,15;""; ?t$="muere!":li=9 :ci=16:cf=24:2010  11 ,15;"-1";12 ,15;"23";10 ,16;"":20:11 ,14;1;4;"":0.1}L,502:40(:0.1}L,20Track-Info  R   491,130:3,-8:-1,8:96`,130:-3,-8:1,8:0.1}L,20 20:i=13:1:0.01z# >,10 :524,122z:21,-42*:92\,122z:-20,-42* T524,122z:21,-42*:92\,122z:-20,-42*:i  0 pa$="DE":b$="FG":li=11 :co=8:11 ,8;1;" !";12 ,8;"""#":1900l At$="Mi traje!":li=9 :ci=2:cf=13 :2010 st$="a correr!":li=9 :ci=2:cf=13 :2010:10 ,2;7;0;"" !Gx$=" !$%$%$%$% !@A01014545454545":z$="""#&'()&'*+()BC8923678967:;67" $&lia=11 :coa=8:mov=1:cof=2:ft=-1:ik=0:ispi=19:isp=17:ispf=27:0:11 ,8;1;" !";12 ,8;"""#":20:11 ,2;"";12 ,2;"";11 ,15;" ";12 ,15;"""#" 'Bt$="A por el!":li=9 :ci=15:cf=26:2010 *210 ,16;0;7;"" -11 ,24;"lpvx";12 ,24;"mqwy":t$="GNYE!":li=9 :ci=23:cf=30:2010:coa=23:cof=18:lia=11 :5100 0>li=5:lf=14:ci=1:cf=30:2060  3++++++ vinyeta 8 ++++++ 6Jli=0:lf=12 :ci=2:cf=30:2075:2000 9 1300 <lia=4:coa=28:mov=1:cof=3:ft=-1:ispi=19:isp=17:ispf=27:20:4,3;"";5,3;"" ?4coa=23:cof=3:lia=4:5100 B*** Vinyeta 9 ******* Eb2060 :li=0:lf=20:ci=0:cf=31:2075:2000:1400x Hlia=6:coa=28:mov=1:cof=17:ft=-1:ispi=19:isp=17:ispf=27:20:t$="me pisan los talones! Rapido!al ascensor! He de SALTAR!":LI=0:CI=0:CF=31:2010 Kzb$=d$:502:isp=15:mov=3:ft=-1:fty=-1:lia=6:coa=16:cof=14:20 N^b$=d$:502:isp=15:mov=3:ft=-1:fty=1:cof=12 :20 Q`502:lia=7:isp=13 :mov=2:lif=18:ft=1:20:502 Tu9994 ':t$="Ostiaaaa":i=1̱t$:0;1;7;11 +i,12 ;t$(i);"";:i:9996 ' W5lia=6:coa=24:cof=16:5100 Z30:6,16;"n";7,16;"o":20:9994 ':5,16;0;7;1;"sa matao Paco":9996 ':0:li=0:ci=0:cf=31:lf=20:2060  ]+++ vINYETA 10 +++++ `Uli=1:ci=1:cf=28:2075:pa=1:ik=7:2000 c 1430 f{isp=13 :mov=2:lia=2:lif=9 :coa=5:ft=1:20:lia,coa;"";lia+1,coa;a$ ihI=12:.004yn,1:.003xD,-12 :.005y# >,-20:.003xD,1:.004yn,-6:.002xn,6:.007ye`A,-13 :.003xD,-23:.004yn,-12 :.003xD,9 :.003xD,-9 :.002xn,-4:.005y# >,-30:.007ye`A,-3:.005y# >,-5:.002xn,-2:I llia+1,coa;" !" o*t$="la virgen, que ostion!":2010 r0lia,coa;" !";lia+1,coa;"&'":100d ulia,coa;1;" !";lia+1,coa;"&'":mov=1:cof=14:ft=1:ik=0:ispi=3:isp=1:ispf=9 :20:lia+1,coa;8;8;1;d$;lia+1,coa;"&'";:t$="Veo restos de mi traje esparcidos por la ciudad":LI=1:CI=1:CF=28:2010:t$="Y El mutageno!Ha caido por todo LLoricaTown!":2010 xBt$="RECUPERARE EL Traje, RECUPERARE el mutageno":2010 {3t$="ANULARE el lanzamiento demisiles":2010 ~=t$="y volvere a Ojetenlabs a detener al doctor":2010 `502:isp=5:mov=3:ft=1:fty=-1:cof=16:20:502 isp=13 :mov=2:lif=18:ft=1:lia=8:20:lia,coa;8;8;1;a$;lia+1,coa;b$:9097#:restaura UDGs originales 0::9994 ':394:l=18:j$,j:k=15-(j$)/2:i=20j-1:i,k;6;0;j$;Track-Info  R i+1,k;0;j$:i:3:l "recupera el traje",6," recupera el mutageno!",7,"anula el lanzamiento de misiles",8,"vuelve a Ojetenlabs",9 ,"y deten al doctor",10 ,"Jose Antonio Malvado",11 ,"antes de que sus mutantes",13 ,"recojan primero el mutageno",14  0 $i=114:3582 :i !****** MENU PRINCIPAL ********* 0:0:0::9500%:9994 ':501:xx=0:j=12:a$,li,co:605]:j:0:7:#1;"1989,2023 ANGEL LASTRE":9996 ' V"BATMANOLO CONTRA EL",1,6,"ATAQUE MUTANTE A LLORICATOWN",3,2 ix=1:x$=" Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX " li=6:co=9 :la=5:ca=8:il=1:ic=1:s$="DE":T$="<=":u$="TU":V$=">?":a$=s$:b$=t$:c$=a$:d$=b$:ct=3:cta=2:it=1 /8;8;la,ca;A$;la+1,ca;B$ li,co;1;8;8;8;A$;li+1,co;b$;la,ca;c$;la+1,ca;d$:la=li:ca=co:li=li+il:co=co+ic:c$=a$:d$=b$ k$=:k$""615g & li>19li<1il=-il 0+co>29co<1ic=-ic:580D : 9994 ' >&21,0;x$(ixix+31) ?ix=x$-31ix=0 C&ix=ix+1:9996 ':530 Da$=s$a$=u$:b$=v$: Na$=s$:b$=t$: W X$++++++ letras de colorines ++++++ ]pa=8:i=1̱a$: ^%xx=1pa=1+(*7) _a$(i)=" "pa=8 bGli,co;9 ;pa;a$(i):co=co+1:.001wn,40(-co:i: gk$="1"100d hk$="2"700 iyk$="3"9994 ':0,4;2;6;1;"Cargando...pulse PLAY":19,0;0:"" jk$="4"840H k opcion 2 REDEFINE  :9994 ':ct=1:23658j\,8:x=20:y=16:t(44,):a$="Puerto = 256*(255-t(x)) + 254":a$="Teclas Spc,Sym,M,N,B":t(44,)=224:t(44,)=224:t(30)=224+27:t(31)=224+23:t(19)=224+15::a$="Teclas Ent,L,K,J,H":t(44,)=192+30:t(29)=192+29:t(28)=192+27:t(27)=192+23:t(25)=192+15::a$="Teclas P,O,I,U,Y":t(33!)=160+30:t(32 )=160+29:t(26)=160+27:t(38&)=160+23:t(42*)=160+15::a$="Teclas 0,9,8,7,6":t(1)=128+30:t(10 )=128+29:t(9 )=128+27:t(8)=128+23:t(7)=128+15::a$="Teclas 1,2,3,4,5":t(2)=96`+30:t(3)=96`+29:t(4)=96`+27:t(5)=96`+23:t(6)=96`+15::a$="Teclas Q,W,E,R,T":t(34")=64@+30:t(40()=64@+29:t(22)=64@+27:t(35#)=64@+23:t(37%)=64@+15::a$="Teclas A,S,D,F,G":t(18)=32 +30:t(36$)=32 +29:t(21)=32 +27:t(23)=32 +23:t(24)=32 +15::a$="Teclas Caps,Z,X,C,V":t(44,)=0+30:t(43+)=0+29:t(41))=0+27:t(20)=0+23:t(39')=0+15 i=317:i,1;1;""::i:2,1;7;0;"CONTROLES":li=5:co=2:a$="Izquierda?":600X:724:puI=p:vI=aux:li=7:CO=2:a$="Derecha?":600X:724:puD=p:vD=aux:li=9 :CO=2:a$="Lanzar arma?":600X:724:puL=p:vL=aux:a$="Salto?":LI=11 :CO=2:600X:724:puS=p:vS=aux:LI=13 :CO=2:a$="Usar ascensor?":600X:724:puA=p:vA=aux:li=15:co=2:a$="Cambio Manolo/Batmano?":600X:724:puT=p:vT=aux:18,1;7;0;"OK!"::750:0:9996Track-Info  R  '::500 A$=:A$=""724 X32 =a$aux=30:p=7:A$="SP":736:caso especial Tecla Espacio W13 =a$aux=30:p=6:a$="Ent":736:caso especial Tecla Enter Mp=0:aux=t(a$-47/):aux128aux=aux-128:p=4 -aux64@aux=aux-64@:p=p+2 -aux32 aux=aux-32 :p=p+1 hp=2^p:p=256*(255-p)+254:aux=160+aux:PRINT "Puerto: ";p;" Valor: ";aux Fu(ct,1)=p:u(ct,2)=aux:u(ct,3)=A$:ct=ct+1 8li,25;0;6;;A$:0.01z# >,3  6u(6,3):u(1,1)=57342:u(2,1)=57342:u(3,1)=32766:u(4,1)=64510:u(5,1)=65022:u(6,1)=65022:u(1,2)=189:u(2,2)=190:u(3,2)=190:u(4,2)=190:U(5,2)=190:U(6,2)=189:U(1,3)=79O:U(2,3)=80P:U(3,3)=32 :U(4,3)=81Q:U(5,3)=65A:U(6,3)=83S (**** pokeo de puertos, valores y codes #dr=59528:I=16 BAL=A(u(i,1)):BBAJ=B(u(i,1),BAL):dr,BAL:dr=dr+1:dr,BBAJ:dr=dr+1:dr,u(i,2):dr=dr+1:dr,u(i,3):dr=dr+1 I  H opcion 4 I95255%:500 R*** moNTAR EDIFICIOS **** SCHAR "LI-CO-IK-PA-AL","GRAF" T5LLAMADA NECESITA EL RESTORE A LA LINIA Y NUMBLOQUES UI=1NB:A$,J$:J=0̰A$(9 10 )-1:A$(12)+J,A$(34);ٰA$(56);ڰA$(78);j$:J:I:  J"++++++++++ PANTALLAS +++++++++++ K"********* PANTALLA 1 ********** L#1101M:NB=9 :850R Mh"0101000304","","1001000605","","1104000604","","1302000702","" Nb"1208000703","","1015000505","","1311000602","","1126070002","","0919000706","" e^i=18:8,120x+((i*i)/3):3;2;231,0:i j10 ,25;2;0;"";0;2;"";13 ,21;0;5;"";14,21;6;"": "********* PANTALLA 2 *********** z7:0:i=412 :i,5;"":i:12 ,10 ;2;6;"b" 11 ,11 ;"ccc";12 ,11 ;"";12 ,19;"";1;"";0;"";1;13 ,5;"eeeeeeeeeeeeeeeeeeeeeeee";8,7;"";9 ,7;""; 511 ,24;"lrtx";12 ,24;"msuy" 111 ,16;"-1";12 ,16;"23"  !******** PANTALLA 3 *********** %i=610 :i,3;0;7;"";1;"";0;"";1;"";0;"":i:i=611 5:i,3;5;0;"eeeeeeeeeeeeeeeeeeeeeeeeee":i:9994 ':8,11 ;2;7;"No correr":9996 ' R1,4;1;5;"";1,18;"" R2,4;1;5;"";2,18;"" F x******** PANTALLA 4 ******** yi=119:i,1;1;"";0;5;"`";7;"";5;0;"";:i:i=9 19:i,15;7-(1i<14);"";:i:i=8146:i,15;5;0;"eeeeeeeeeeeeeee":i:8,12 ;0;7;"";12 ,24;0;"ccccc";13 ,24;"":9994 ':10 ,18;2;7;"No saltar":9996 '  ******* PANTALLA 5 ********* \i=210 :i,2;7;0;"";6;"";0;7;"";1;6;"";7;".":i:i=13 19:i,2;7;0;".":i:i=11 12 :i,2;5;0;"":i:9994 ':15,2;6;0;"OJETENLABS":9996 ' #1445:nb=5:850R ^"1324000107","","1518000605","","1423000606","","1621000504","","1820000702",""  **** fachada ojetenlabs **** Hi=213 :i,10 ;5;0;"":i Si=13:10 +i,6Track-Info  R ;0;5;"":i fi=13:10 +i,12 -i;5;0;"";7;"";5;"":i Gi=56:i,9 ;6;0;"":i J9994 ':6,12 ;7;0;"OJETENLABS":9996 '  k****** EXPLOSION ****** l~1:8:8:I=16:J=I-1:0.003xD,15-(i*2):0.002xn,5-(i*2) n7LI-I,CO-I;A$(1);LI-I,CO+I+1;A$(2) rGLI+I+1,CO-I;B$(1);LI+I+1,CO+I+1;B$(2) v7LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2) zGLI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) |i ~j=6:LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2);LI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) 0:7:0: .+++++++++++TINTA FONDO VINYETA++++++++++++++ Qi=li+1lf-1:i,ci+1;pa;ik;f$(1((cf-ci)-2)):i  .++++++++++++++TEXTO VINYETA+++++++++++++++++ Dlinias=(t$)/(cf-ci):(linias)>1linias=(linias)+1 ~9994 ':i=1linias:ini=(cf-ci-2)*(i-1):fin=ini+(cf-ci-2):fin>t$t$=t$+e$(1(fin-t$)) Ali+i,ci+1;7;0;1;t$(ini+1fin) i 9996 ':0: i=1linias: ?li+i,ci+1;pa;8;0;e$(1cf-2) i  /+++++++++++++APAGAMOS VINYETA++++++++++++++++  hf$="":i=LILF:i,ci;1;0;1;F$(1(cf-ci)):i  )++++ dibujar marco y fondo vinyeta ++++ &f$=""  i=lilf %5i,ci;7;0;0;f$(1cf-ci); *i /0:((ci)*8)+3,((21-li)*8)+4:((cf-ci-1)*8),0:0,-(lf-li)*8-1:-((cf-ci-1)*8),0:0,(lf-li)*8 4 "***** Movimientos mutantes ***** c$="lpvxlpvx":d$="mqwymqwy" j=1:i=coacof-1 @lia,i;c$(jj+3);"";lia+1,i;d$(jj+3);""; #j=j+1:j>4j=1 00.006yD,30+i:0.002xn,20+j i  ".005y# >,12 :.005y# >,10.88.z:.005y# >,8.84 p:.005y# >,7.02` :.005y# >,4.98\(:.005y# >,3.86w =q:.005y# >,2.039~:.005y# >,0: ".005y# >,0:.005y# >,2.039~:.005y# >,3.86w =q:.005y# >,4.98\(:.005y# >,7.02` :.005y# >,8.84 p:.005y# >,10.88.z:.005y# >,12 : #' #/si llamo por aqui, restauro a UDGS originales #9110#:9101# #'****** UDG's especiales para el comic # 9102# # F="C"""+7:A:F,A:F #M60<,126~,90Z,126~,60<,165,153,66B #I60<,24,24,24,36$,36$,36$,66B #M240,248,72H,524,36$,200,240,32 # ***** uDG's orignales #M0,15,63?,121y,119w,239,239,255 #O0,240,252,254,254,255,239,255 #L75K,101e,170,174,64@,28,38&,60< # %4**************** pantalla de inicio ************** %9994 ':i=012 :i,0;0;1+(i>11 );,,:i:I=13 21:I,0;6;,,:i %i=18:0,80P+((i*i)/3):1;2;255,0:i:12 ,25;6;2;"" %e9505!%:i=17:li,co,pa,al,z$:j=0al-1:li+j,co;0;pa;z$:j:i %!6,11 ,1,8,"",8,10 ,6,6,"",9 ,14,7,5,"",10 ,17,2,3,"",11 ,21,1,3,"",12 ,18,5,3,"",12 ,8,1,3,"" %0 9994 ' %1O95222%:xx=0:j=13:a$,li,co:605]:j:9996 ' %2Y"1 Intro",16,10 ,"2 Redefinir",17,10 ,"3 Jugar",18,10 %4 %6:9994 ':xx=1:li=15:co=0:a$="Para Freya, seras capaz":600X:li=16:co=0:a$="de hacer cosas maravillosas":600X:0 %99996 ': %:CHAR radiactivo 'Mi=16:u(i,1);",";u(i,2);" c:";(u(i,3)):i: ' =Track-Info  R 236066\,160:236077\,231::CHAR normal ' 7236066\,0:236077\,60<::Bmn CHAR ' 0236066\,211:236077\,233: ' I=0184:(59528+I);"->";(59528+I)*256+(59528+i+1);",";(59528+i+2):I: '59527:"blIntegral"59552:"UDGSBAT1"65368X::5,9 ;6;2;1;"PARE LA CINTA":0:1 a<k@xypaba  ttiniani2s ioooiaaspsp _OP QAS,~}{wo>;[7/^W=O] ] # E]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Y\ -1W\ 23F]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Jrecojan primero el mutagenoZ\n\m\mX Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX SDET<=UTUV>?B>?CTUD>?K2A\#006PLUS3DOSDf @ P~` 8||>>?gw?!a CCC>UU~W~x~9?5uQ~8$~RSC>$~J|`Аpx|}%$$l >@$$6gݙ<~JJ滙<~RR6hwC|܎7=]}?2>;q𼺾XHL`~>~N!~|8?a~rp8H e e           e  ` ee e           .         `    `    e                                           Track-Info  R                                      a         a        a e     a  e     a e                                                                                 c  `                                                                                                                                                                                                                       5j`XV?ywKe@&N#F#ò*\xʟ*e\+V+^Bß͸]] +V+^ s#r*e\+6+6*e\+F+N͸]]`iB0!s#r͸]]q#pͩ0 BKñ*͎ 0_3ö**e\6#!2Se\Kv\+-474A218͢-Cv\~wN#F#Ͷ* >*e\ T] "e\(#0+(͓2#7##N#7͚^͞^ 8!06001͚^͞^0(#͞^ 0*e\w#w#6#w#w#"e\͞^ 0*e\q#"e\i_{_(8(8i_{_ (8w_(w_(++<++B( (0 DMx# *e\B"e\6y=~- #~0(.bkB"e\+*e\ 5*e\ Ò4*e\ j4*e\ "e\T] 5*e\ "e\T] $5*e\ "e\T] -5*e\ T] 0Se\*e\ T]"e\ ï1*e\ ~(#~ƀw#~#N#F!Br+s+~/w7*e\ "e\~( T] ƀ>0W`+ *e\ "e\T] >0##N#F#~#^#V <0w30z30+T]6#6#w#w#w#F#~#fox(}Do|Dg| L(ei )0D}!"\!\w+p+q*e\B!*e\ B \͡`! >?~ 2a~ k#F#^#V2a F#F#^s#V r  ,++p####~ #~ a#N#FB X7g#~~8M+`16+++6*c\6#w#w#w#w*c\A0#!8+~`0 #7*a\"c\"e\!\"h\>8>0{:\2\:\2\!\~U˷w"aͷ$M :]2\(:]2\:]2\:\_Zc"\<oc!"\(k2\͈b*\}c8[lg"\͈bc_Zc*\Roc2\K\*\80GyO":\O"K\*\xGyO":\O"͈bK\*\x80GyO":\O"K\*\x8GyO":\O":\=2\b:\K\G8"K\*\xG":\K\O"K\*\yO"M a!T0#0ɯgo#j#jO!1B0 ?ٽ>"]\*]\#"]\͎ *]\#"]\*]\#>M > a*e\+F+N+V+^+"e\x *S\+"W\\CB\dK[wͪdͤd\a!f###V#^B8++V+^*S\+"W\K\\k *K\~#(Qo(d~#0q#00!> 8^#V#N! BGp#z N6#F6#~# "Y\6 #6#"a\2B*\BC\Øf s# x a*e\+~++++a*e\2 ra:]8$( Ÿ!\~w,,,a!\~O,~ !\~w,~w,,,ˮa:]8$( Ÿ!\~?w,,,F!\~?O,~DZ!!!!\~DZw,~w,,,˾a:]((ҟ!\˾,˾a!\!\a:]((ҟ!\˶,˶a!\!\a:]( ҟ!\˞a!\a:]( ҟ!\ˎa!\aKB\ͪd*\6>+fs=\ 8sfa*f+F+N*K\+7B8*fB0!f###^#VB8++^+V!:"E\j)k2kkNllmmmxnnoo (p!Zp(p*p,Dr-s.t/t2v3Wv5v6v7v8v9w:x;yy|A|D_}E~F~G7Hi,sX}ʀi܄CxyՊfvݐޑo-0^HՔ:",516;@EJOTڜY^`chĝmwrtLvx)z|Π~=>ӣMuv |Gܪģ۫Te̯ϱܳ nbc޷f߷xٸHп%?@νǾhF`z9EC R 8 ܵ ߻!4!6!7a!C͟] d>A͟]c>D͟] d>B͟]c>A͟] d>S͟]]^c>B͟] d>T͟]]^c!"M\!3d]ͦc!"M\!:d]ͦct!"M\D]ͦc!d]D]_geNl!"M\!d]D]͔`ͦc!d]D] _geNl!"M\D]ͦc!d]D]_geʇl!"M\D]ͦc!"M\D]ͦc>C͟] d>A͟]c>A͟] d>S͟]!d]]!d]D]͔`]c>D͟] d>B͟]c>B͟] d>T͟]!d]]!d]D]͔`]c!3d]D]͔`!{]!:d]D]͔`͊]K^]D] _geʔm!"M\!:d]ͦc!:"M\!:d]D]͔`ͦc!"M\!3d]ͦc!V"M\D]ͦct!"M\D]ͦc!"M\!:d]ͦc!"M\!3d]ͦct!d]D]_gexn!"M\D]ͦc!"M\D]ͦc>C͟] d>A͟]c>D͟] d>B͟]c>A͟] d>U͟]]^c>B͟] d>V͟]]^c!"M\!3d]ͦc!"M\!:d]ͦct!"M\D]ͦc!d]D]_gen!"M\!d]D]͔`ͦc!d]D] _gen!"M\D]ͦc!d]D]_geo!"M\D]ͦc!"M\D]ͦc>C͟] d>A͟]c>A͟] d>U͟]!d]]!d]D]͔`]c>D͟] d>B͟]c>B͟] d>V͟]!d]]!d]D]͔`]c!3d]D]͔`!{]!:d]D]p`͊]K^]D] _ge(p!"M\!:d]ͦc!"M\!3d]ͦc!:"M\!:d]D]p`ͦc!V"M\D]ͦct!"M\D]ͦc!"M\!3d]ͦc!"M\!:d]ͦct!"M\!d]D]͔`ͦc!d]!d]^geʝp!"M\D]ͦct!d]D]_gep!"M\D]ͦc!"M\D]ͦc!3d]D]^geDr!1"M\!3d]D]p`!{]!:d]D]͔`͊]K^]ͦc!*"M\!3d]D]p`!{]!:d]D]͔`͊]K^]ͦc!#"M\!3d]!{]!:d]D]͔`͊]K^]ͦc!d]D]_!1d]D]_!*d]D]__!#d]D]__`geDr!"M\D]ͦc!"M\!3d]ͦc!"M\!:d]ͦc>C͟] d>A͟]c>D͟] d>B͟]ct!3d]D]^geʧs!1"M\!3d]D]p`!{]!:d]͊]K^]ͦc!*"M\!3d]D]p`!{]!:d]D]p`͊]K^]ͦc!#"M\!3d]!{]!:d]D]p`͊]K^]ͦc!d]D]_!1d]D]_!*d]D]__!#d]D]__`geʧs!"M\D]ͦc!"M\!3d]ͦc!"M\!:d]ͦc>C͟] d>A͟]c>D͟] d>B͟]ct!"M\!3d]ͦc!"M\!:d]ͦc!3"M\!3d]D]p`ͦc!"M\D]ͦc!:"M\!:d]!d]͔`ͦc>C͟] d>A͟]c>D͟] d>B͟]c!V"M\D]ͦc!d]D]_geʋt>A͟] d>S͟] ]^c>B͟] d>T͟] ]^ct!d]D]_get>A͟] d>U͟] ]^c>B͟] d>V͟] ]^ct>B͟]>D͟][_!d]D]__gevadD]>"D]>"D]>"!d]!d] >C͟]od!d]D]͔`!d] >D͟]odidwe!V"M\D]ͦcad!3d]!:d] D]>"D]>"!d]>">A͟]od!3d]D]͔`!:d] !d]>">B͟]odid!"M\D]ͦc!3d]D]^!3d]D] ^_!:d]D]^_!:d]D]^_geWvD]D]!~d]D]^`]%aҶv!]d]!{]^]D]^geʪvÑՔ!]aaڄv!d]D] _gevwe͞!"M\!d]D]p`ͦc!d]D]_gew!"M\D]ͦc!"M\!d]D]!d]D] _`p`ͦc!k"M\D]ͦc!"M\!d]ͦc!r"M\D]ͦc>F͟] d͍^cweӣ!d]D]_gew>F͟] d͍^Tarde!Lanzaron los misilesc!k"M\D]ͦcwe@weE!d]D]_gex!"M\!d]D]p`ͦc!d]D]^gex!"M\D]ͦc>F͟] d͍^c!r"M\D]ͦc!k"M\D]ͦc!"M\!yd]ͦc!y"M\!yd]D]!yd]D]^`p`ͦcweӣ!yd]D]^gexwed!d]D]_gey!"M\!d]D]͔`ͦc!d]D] ^gey!"M\D]ͦc!y"M\!yd]D]!yd]D]^`͔`ͦc>F͟] d͍^dc!r"M\D]ͦc!k"M\D]ͦc!"M\!yd]ͦcweweӣ!yd]D]^gey!"M\D]ͦc!"M\!3d]D]͔`!{]!:d]͊]K^]ͦc!"M\!3d]D]͔`!{]!:d]D]͔`͊]K^]ͦc!d]D]_!d]D]_`geS{!d]D]_!d]D]^`geS{!"M\!3d]ͦc!"M\!:d]ͦc!3"M\!3d]D]͔`ͦc!"M\D]ͦc>C͟] d>A͟]c>D͟] d>B͟]c>A͟] d>S͟] ] ^c>B͟] d>T͟] ] ^c!V"M\D]ͦct!1"M\!3d]!{]!:d]͊]K^]ͦc!*"M\!3d]!{]!:d]D]͔`͊]K^]ͦc!#"M\!3d]D]͔`!{]!:d]͊]K^]ͦc!"M\!3d]D]͔`!{]!:d]D]͔`͊]K^]ͦc!1d]D]^!*d]D]^_!#Track-Info  R         d]D]^_!d]D]^_gey|!d]D]^!d]D]^!d]D]^_`geʻ|!d]D]_ge_}!1"M\!3d]D]͔`!{]!:d]D]͔`͊]K^]ͦc!*"M\!d]ͦc!#"M\!3d]D]͔`!{]!:d]D]͔`͊]K^]ͦc!d]D]_ge~!1"M\!3d]D]͔`!{]!:d]D]p`͊]K^]ͦc!*"M\!d]ͦc!#"M\!3d]D]͔`!{]!:d]D]p`͊]K^]ͦc!d]D]_!d]D]^`!1d]D]_!*d]D]__!#d]D]__`ge~!"M\D]ͦc!"M\D]ͦc!"M\!3d]ͦc!"M\!:d]ͦc>C͟] d>A͟]c>D͟] d>B͟]ct!d]D]_!d]D]^`!1d]D]_!*d]D]__!#d]D]__`ge7!d]D]_!d]D]^`ge!"M\!d]D]p`ͦc!"M\!3d]ͦc!"M\!:d]ͦc!3"M\!3d]D]͔`ͦc!"M\D]ͦc>C͟] d>A͟]c>D͟] d>B͟]c!:"M\!:d]!d]͔`ͦc!V"M\D]ͦct!vd]ͥ4!{d]_ge,Zp!"M\D]ͦc!Xd]ͥ4!]d]_geX2k!"M\D]ͦc!Id]ͥ4!Nd]_geʛ!:d]D]^geʛm!"M\D]ͦc!d]ͥ4!d]_geʀweͻ!gd]ͥ4!ld]_!d]D]_`gewew!d]ͥ4!d]_gewe͹!"M\D]ͦc>C͟] d>A͟]c>D͟] d>B͟]c!"M\!3d]ͦc!"M\!:d]ͦc!d]D]_geʻ>A͟] d>S͟]]^c>B͟] d>T͟]]^ct>A͟] d>U͟]]^c>B͟] d>V͟]]^ctt!Vd]D]_ge!d]D] $`!]d]͔`!d]͔`!d]̀a!d]D]͔`D] $`!]d]͔`!d]͔`!d]̀a!"M\!d]ͦc!"M\!d]ͦc!"M\!d]!d]D]͔`̀%ͦc!"M\!d]D]͔`!d]D]͔`̀%ͦc!Vd]D]_ge!]d]!d]͔`D]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`D]͔`!d]D]͔`D] $`͔`!d]̀a!"M\!d]ͦc!"M\!d]ͦc!"M\!d]!d]D]p`̀%ͦc!"M\!d]D]͔`!d]D]p`̀%ͦc!Vd]D]_ge܄!]d]!d]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`D]͔`!d]D] $`͔`!d]̀a!"M\!d]ͦc!"M\!d]ͦc!"M\!d]D]͔`!d]̀%ͦc!"M\!d]D]͔`!d]D]͔`̀%ͦc!Vd]D]_!d]D]_`geC!]d]!d]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`!d]D]͔`D] $`͔`!d]̀a!]d]!d]͔`D]͔`!d]D]͔`D] $`͔`!d]̀a!"M\!d]ͦc!"M\!d]D]p`!d]D]͔`̀%ͦc!"M\!d]D]p`!d]D]͔`̀%ͦc!"M\!d]!d]D]͔`̀%ͦc!Vd]D]_!d]D]_`geʪ!]d]!d]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`D]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`!d]D]͔`D] $`͔`!d]̀a!"M\!d]ͦc!"M\!d]D]͔`!d]D]͔`̀%ͦc!"M\!d]D]͔`!d]D]͔`̀%ͦc!"M\!d]D]͔`!d]D]͔`̀%ͦc!Vd]D]_!d]D]_`ge!]d]!d]͔`D]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`!d]D]͔`D] $`͔`!d]̀a!]d]!d]͔`D]͔`!d]D]͔`D] $`͔`!d]̀a!"M\!d]ͦc!"M\!d]D]p`!d]D]p`̀%ͦc!"M\!d]D]p`!d]̀%ͦc!"M\!d]!d]D]p`̀%ͦc!Vd]D]_!d]D]_`gex!]d]!d]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`D]͔`!d]D] $`͔`!d]̀a!]d]!d]͔`D]͔`!d]D]͔`D] $`͔`!d]̀a!"M\!d]ͦc!"M\!d]D]͔`!d]D]p`̀%ͦc!"M\!d]D]͔`!d]D]p`̀%ͦc!"M\!d]D]͔`!d]̀%ͦcD]=!]d]]] dD]:!]d]]]͸cD]=!]d]]] dD] !]d]]]͸c!]d]!{]u^]D]_gefD]=!]d]]] d>G͟]!]d]!{]^]]]͸cD]=!]d]]] d>H͟]!]d]!{]^]]]͸c!]d]!{]u^]D]_geD]=!]d]]] d>I͟]!]d]!{]^]]]͸cD]=!]d]]] d>J͟]!]d]!{]^]]]͸cad!]d]!{]^]!]d]!{]^]!]d]!{]u^]p` D]>"D]>"D]>"D]>"D]>"D];!]d]]]od!]d]!{]^]D]͔`!]d]!{]^]!]d]!{]u^]p` D];!]d]]]od!]d]!{]^]!]d]!{]^] D];!]d]]]od!]d]!{]^]D]͔`!]d]!{]^] D] !]d]]]odid!]d]!{]^]D]͔`!{]!]d]!{]^]!]d]!{]u^]͔`͊]K^]D] _!]d]!{]^]!]d]!{]u^]͔`D]^_!]d]!{]^]!]d]!{]u^]͔`D]^_geʐ!]Track-Info  R         d]!{]u͜c!]d]!{]u^]F`ͦc!]d]!{]͜cD]ͦc!3d]!]d]!{]^]_!:d]!]d]!{]^]_!:d]D]͔`!]d]!{]^]__`!3d]D]͔`!]d]!{]^]_!:d]!]d]!{]^]_!:d]D]͔`!]d]!{]^]__`_geoweH!]d]!{]͜c!]d]!{]^]D]͔`ͦc!]d]!{]^]!]d]!{]^]_ge-!]d]!{]͜c!]d]!{]^]!]d]!{]u^]͔`ͦc!]d]!{]͜cD]ͦcweyívD]=!]d]]] dD] !]d]]]͸c!]d]!{]u^]D]_geʸD]=!]d]]] d>G͟]!]d]!{]^]]]͸c!]d]!{]u^]D]_geD]=!]d]]] d>I͟]!]d]!{]^]]]͸cadD]>"D]>"D]>"!]d]!{]^]!]d]!{]^] D]>"D] !]d]]]odid!]d]!{]^]D] ^ge!]d]!{]͜c!]d]!{]^]!]d]!{]u^]͔`ͦc!]d]!{]^]D] ^geH!]d]!{]͜c!]d]!{]^]!]d]!{]u^]͔`ͦcadD]>"D]>"D]>"!]d]!{]^]!]d]!{]^] D]>"D] !]d]]]odid!]d]!{]^]D] ^!]d]!{]^]!{]!]d]!{]^]!]d]!{]u^]͔`͊]K^]D] _`!]d]!{]^]D] ^!]d]!{]^]!]d]!{]u^]͔`!{]!]d]!{]^]͊]K^]D] _`_!]d]!{]^]!]d]!{]u^]͔`D]^_!]d]!{]^]!]d]!{]u^]͔`D]^_!]d]!{]^]!]d]!{]u^]͔`D]^_!]d]!{]^]!]d]!{]u^]͔`D] ^_geʷ!]d]!{]u͜c!]d]!{]u^]F`ͦc!]d]!{]͜cD]ͦc!]d]!{]͜c!]d]!{]^]D]͔`ͦc!]d]!{]^]!]d]!{]^]_ge:we0!3d]!]d]!{]^]_!:d]!]d]!{]^]_`!3d]D]͔`!]d]!{]^]_!:d]!]d]!{]^]_!:d]D]͔`!]d]!{]^]__`_geweHív!"M\!3d]!{]!:d]͊]K^]ͦc!"M\!3d]!{]!:d]D]͔`͊]K^]ͦc!"M\!3d]D]͔`!{]!:d]͊]K^]ͦc!"M\!3d]D]͔`!{]!:d]D]͔`͊]K^]ͦc!"M\!3d]D]͔`!{]!:d]͊]K^]ͦc!"M\!3d]D]͔`!{]!:d]D]͔`͊]K^]ͦc!3d]D] ^geʎ!d]D]_!d]D]__geʎ!"M\D]ͦcweͿ!d]D]_!d]D]__!d]D]__!d]D]__ge!"M\D]ͦcweͿ!d]D]_!d]D]__!d]D]__!d]D]__geʈ!O"M\!Od]D]͔`ͦc>K͟]!d]]] d͍^x͸cwe͕!d]D]_!d]D]__!d]D]__!d]D]__geʶ!"M\!d]D]p`!{]^]ͦc!d]D]p`!{]͜cD]ͦc>Y͟] d>Y͟]>Z͟]!d]]]͜5c!d]!{]!d]͊]K͜cD]ͦc!k"M\D]>Y͟]t6D]^͔`ͦc!"M\D]>Y͟]t6͔`D]>Y͟]t6D]^$`p`ͦcad!d]!d] D]>">Z͟]!d]]]od!kd]!d] D]>"D]>"͍^odid!d]!3d]p`D]͔`!{]!d]!:d]p`D]͔`͊]͜c!d]D]$`ͦcD]|LD]Aa!d]D]_!d]D]__!d]D]_`ge!k"M\D]ͦc>F͟] d͍^Misiles anulados!cwe@!d"M\D]ͦc!d]!{]!d]͊]K͜cD]ͦcweJadD]D]  D]>"D]>"D]>"L^_>"͍^odD]D]  ͍^odidwew!3d]D]͔`!d]_!:d]!d]_`!d]D]_`geʒ!k"M\D]ͦc>F͟] d͍^Descansa en tu Casita,Heroe!cwe@D] :aL^_:aweEû|!Od]D]_geڜ>F͟] d͍^El traje esta roto,durara pococ!Od]D]_ge>F͟] d͍^Transformandome saltare mas!c!Od]D]_ge`>F͟] d͍^con traje completo dispararec!Od]D]_geʠ>F͟] d͍^La base esta en el bosquecweĝweͤ!k"M\D]ͦcwe@ad!d]!d] D]>"͍^/odid!d]!{]!d]͊]K͜cD]ͦc!d]!3d]p`D]͔`!{]!d]!:d]p`D]͔`͊]͜c!d]D]$`ͦc!d]D]_!Od]D]^_geʣD]xDD]-a!"M\!:d]ͦc!"M\!3d]ͦc!"M\D]ͦc!"M\D]ͦc!d]D]_geL!"M\!:d]D]͔`ͦc!"M\D]ͦc!"M\D]ͦcad!d]!d] D]>"D]>"D]>"D]>"͍^/odid!"M\!d]!d]͔`ͦcad!d]!d] D]>"D]>"D]>"D]>"͍^/od!d]!d]!d]p` ͍^/odid!d]!{]!d]͊]K^]DTrack-Info  R         ]_!d]!{]!d]͊]K^]D]__geʋ>!d]!{]!d]͊]K^]D]^geΠ!"M\D]ͦcD]D]%aš!d]!d]!{]^]_!d]!d]!{]^]_`!d]!d]!{]^]D]͔`_!d]!d]!{]^]_`!d]!{]^]D]^`_geʼ!d]!{]u͜cD]ͦc!"M\D]ͦc!aa!d]!d]_ge=!"M\D]ͦcad!d]!d] D]>"D]>"D]>"D]>"͍^/odid!d]D] _!d]!{]!d]͊]K^]D]_`geʆâD]{# >D]-aD]{# >D]#aD]{u]D]aad!d]!d] !d]>"͍^od!d]D]͔`!d] ͍^odid!d]!{]!d]͊]K͜cD]ͦc!d]D]͔`!{]!d]͊]K͜cD]ͦc!"M\D]ͦcD]D]%aңad!kd]!d] !rd]>"͍^dodid!aaڠad!kd]!d] !rd]>"L^_>"D]>">F͟]odid!r"M\D]ͦc!d]D] ^geM!r"M\D]ͦc!d]D]^geu!r"M\D]ͦcweJ!"M\D]ͦcD]D] %a ad!d]D] D]>"!d]>"D]!d]D] _`>"D] id!aaڦwew!/We! "M\!,d]ͬ4ͦc!/"M\!,d]D]͔`ͬ4ͦc!4"M\!,d]D]͔`ͬ4ͦc!9"M\!,d]D]͔`ͬ4ͦc!>"M\!,d]D]͔`ͬ4ͦc!A"M\!,d]D]͔`ͬ4ͦc!H"M\!,d]D]͔`ͬ4ͦc!"M\!,d]D]͔`ͬ4ͦc!"M\!,d]D]͔`ͬ4ͦc!"M\!,d]D] ͔`ͬ4ͦcz!KWe!,"M\!,d]D] ͔`ͦcD]! d]D]p`%a !&"M\!,d]ͬ4ͦc!-"M\!,d]D]͔`ͬ4ͦc!4"M\!,d]D]͔`ͬ4ͦc!$"M\!,d]D]͔`ͬ4ͦc!<"M\!,d]D]͔`ͬ4ͦc!,"M\!,d]D]͔`ͦc!$d]D]_geʍD]!4d]D]p`%aҊ!&d]!{]!-d]!d]͔`͊]K͜c!"!d]>"!!,"M\!,d]D]͔`ͦc!aa^D]!d]7%aر!"M\!,d]ͬ4ͦc!,"M\!,d]D]͔`ͦc!"M\!,d]ͬ4ͦc!,"M\!,d]D]͔`ͦc!"M\!,d]ͬ4ͦc!,"M\!,d]D]͔`ͦc!"M\!,d]ͬ4ͦc!,"M\!,d]D]͔`ͦc!d]D]_ge۫>E͟] d͍^c>F͟] d>E͟]c!d]D]_geT>E͟] d͍^cad!d]D]p`!d] D]>"͍^od!d]D]p`!d] ͍^odidb!d]D]$`D]!d]p`D]$`D]͔`/bbD]>"D]D]5bbD]>"D]D]5bbD]>"D]D]5bad!d]D]p`!d]D]͔` D]>"D]>"͍^odid!d]D]_geead!d]!d] D]>"͍^od!d]D]͔`!d]D]p` ͍^od!d]D]͔`!d] ͍^od!d]D]͔`!d]D]͔` D]>"D]>"͍^od!d]D]͔`!d]D]͔` ͍^odid!d]D]_ge̯ad!d]!d] D]>"D]>"͍^od!d]D]͔`!d]D]p` ͍^od!d]D]͔`!d] D]>"D]>"͍^od!d]D]͔`!d] ͍^od!d]D]͔`!d] ͍^od!d]D]͔`!d] ͍^od!d]D]͔`!d] ͍^odid!d]D]_ge̯!d]D]_gead!d]!d] D]>"͍^od!d]D]͔`!d]D]p` ͍^odD]>"͍^odD]>"͍^od!d]D]͔`!d] ͍^odD]>"͍^od!d]D]͔`!d]D]͔` D]>"D]>"͍^od!d]D]͔`!d]D]͔` ͍^odid!d]D]^!d]D]__geϱad!d]!d] !d]>"!d]>">E͟]odid!d]D] _geϱad!d]D]͔`!d] !d]>"!d]>">F͟]odid!7aa>G͟] d͍^ lppvvx|fhjjvc>H͟] d͍^ mqmu}y} c>I͟] d͍^ nrrttz~gikktc>J͟] d͍^ osou{ c!~Track-Info  R "M\D]ͦc![e![e![e![e!We!We!We!We!We!uWe!d]D]^ge !~"M\D]ͦc!d]!{]!d]͊]K͜cD]ͦc!x"M\D]!d]D]p`$`D]\͔`ͦcD]D]%a!d]!{]͜c!xd]ͬ4ͦc!d]!{]͜c!xd]D]͔`ͬ4ͦc!d]!{]͜c!xd]D]͔`ͬ4ͦc!d]!{]͜c!xd]D]͔`ͬ4ͦc!d]!{]u͜c!xd]D]͔`ͬ4ͦc!x"M\!xd]D]͔`ͦc!d]!{]u^]D] _gen!d]!{]u͜cD]ͦc!"M\!d]!{]^]ͦcD]=!d]]] d>G͟]!d]]]͸cD]=!d]]] d>H͟]!d]]]͸cad!d]!{]^]!d]!{]^] D]>"D]>"D]>"D]:!d]]]odid!d]D]^gead!d]!{]^]D]͔`!d]!{]^] D]>"D]>"D]>"D]>"D] !d]]]odid!aaRweJadD]D] L^_>"D]>"͍^ OJETENLABSodidwewD]D]D]aHadD] !d]D]p` !d]>"D]>"͍^odD]!d] D]>"͍^odD]!d] D]>"D]>"D]>"͍^lodD] !d] ͍^modD]!d] ͍^odid!4a^adD] D] D]>"͍^-1odD] D] L^_>"D]>"͍^23odid!:d]D]_!3d]D] _`ge޷weweٸad!3d]!:d] D]>"D]>"D]>">A͟]od!3d]D]͔`!:d] >B͟]od!3d]D]͔`!:d] !d]>"!d]>">A͟]odidweٸad!3d]D]͔`!:d] D]>"D]>"D]>">A͟]odidD]z# >D]aD]z# >D]aD]z# >D]aD]z# >D]aD]z# >D]a!"M\!d]D]D]!d]D]_`͔`p`ͦcD]y# >D]a!d]D]^geʿ!"M\D]ͦc!k"M\D]ͦc>F͟] d͍^c!"M\!d]ͦcweӣ!d]D]^ge%!"M\D]ͦcwe߷!"M\!d]D]p`ͦcweJadD]D]  D]>"D]>"!d]-idwew!r"M\D]ͦc!k"M\D]ͦcwe͇!:"M\!Hd]ͦc!3"M\!Ad]ͦc!"M\!3d]ͦc!"M\!:d]ͦc>C͟] d͍^c>D͟] d͍^c!d]D]^ge%@!d]D]_ge?E!"M\D]ͦc!"M\D]&ͦc!,"M\!d]D]!d]D]p`$`͔`ͦc!"M\!,d]ͬ4ͦc!"M\!,d]D]͔`ͬ4ͦc!,"M\!d]D]$`!d]͔`ͦcwewev!"M\D]ͦc!,"M\!d]D]!d]D]p`$`͔`ͦc!"M\!,d]ͬ4ͦc!"M\!,d]D]͔`ͬ4ͦc!,"M\!d]D]$`!d]͔`ͦcwe!"M\!3d]!:d]̀%ͦc!"M\!3d]!:d]D]͔`̀%ͦc!"M\!3d]D]͔`!:d]̀%ͦc!"M\!3d]D]͔`!:d]D]͔`̀%ͦc!d]D]_!:d]D] _`!3d]D] _`!d]D]_!:d]D]_`!3d]D] _`_!d]D]_!:d]D]_`!3d]D] _`_geνwe!d]D]_!3d]D]_`!:d]D]_`!d]D]_!:d]D]_`!3d]D]_`_!d]D]_!3d]D]_`!:d]D]_`_!d]D]_!3d]D]_`!:d]D] _`_geǾwe!d]D] _gewe!d]D]_geh!dd]D]_gehad!d]!d] D]>"͍^codid!d]!{]!d]͊]K͜cD]ͦc!d]D]_geFadD]D]  D]>"D]>"͍^odD]D] ͍^odD]D]  ͍^odD]D] ͍^odD]D] D]>"D]>"͍^odid!d]D]^ge`t!d]D]^gez>K͟]!d]]]͍^ b_ge!d]!{]!d]͊]K͜cD]ͦcad!d]!d] D]>"D]>"D]>"D]>"͍^/odidt!"M\!d]D]p`!{]^]ͦc!d]D]^ge!d]!{]!d]͊]K͜cD]ͦcad!d]!d] D]>"D]>"D]>"D]>">Z͟]!d]]]odidtweJ!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦcweeL^_:aD]D]%aҡD] ͳ4OaadD]D] D]>"͍^odid!aaWweٸ!k"M\D]ͦc>F͟] d͍^TOMA,en todo el melon!cwe@>Y͟]t6D]^ge9>F͟] d͍^Ei,y el mutageno?c!k"M\D]ͦcwe@!dd]D]_geʎ>F͟] d͍^Ostia,y los misiles?c!k"M\D]ͦcwe@L^_:aL^_:a!3"M\D]ͦc!:"M\D]ͦc!"M\D]ͦc!"M\D]ͦcD] :aL^_:ak weD]D]%aBek 0ek !aa)ED]Track-Info  R D] %aҬad!d]D]  D]>"D]>">S͟]] ^odid!aa^weJadD]D]  D]>"L^_>"͍^ GAME OVERodidD]|LD]aD]|LD]aD]{u]D] aD]{# >D]aD]D]D]aҊD]{tk!d]a!4amD]{# >D]-aD]{u]D]aL^_:aÌL^_eMfk z!KWe!/We!"M\D]ͦc!O"M\L^_ͦc!We!V"M\D]ͦc!"M\D]ͦc!]"M\D]Xͦc!d"M\D]ͦc>K͟] d͍^ cadD]D]  D]>"D]>"!d]-D]D]  D]>"͍^xodidweadD]D]  D]>"D]>"͍^ !"odD]D]  ͍^#$%odD]D] ͍^&'odD]D] ͍^()odidwewadD]D] D]>"L^_>"͍^FGodD]D] ͍^DEodD]D] D]>"D]>"͍^ !odD]>"D]>"D]D] ͍^"#odD]>"͍^odidͱe!k"M\D]ͦc!r"M\D]ͦcwe͇!r"M\D]ͦc!k"M\D]ͦcwe͇!y"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦcBf>Y͟] d͍^c>Z͟] d͍^bbbbcd!We!"M\D]ͦc!"M\f^D]$`ͯ6D]͔`ͦc!d]!{]^]D]_geʵ!d]!{]͜c!d]ͦc!"M\!d]D]͔`ͦc!d]D]^ge8!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\!3d]ͦc!"M\!:d]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc>S͟] d͍^ !$%$%$%$%@A !c>T͟] d͍^"#&'()&'*+BC"#c>U͟] d͍^0145454545@A01c>V͟] d͍^2367:;6789BC23c>A͟] d>S͟]!d]]!d]D]͔`]c>B͟] d>T͟]!d]]!d]D]͔`]c>C͟] d͍^c>D͟] d͍^c!"M\!3d]ͦc!"M\!:d]ͦc!"M\D]ͦc@!Od]D]^ge!d]D]_ged!"M\D]ͦcD]yDD]aD]xDD]aD]ynD]aD]xnD]aD]xnD]a!"M\D]ͦc!"M\D]ͦc>S͟] d͍^DEHIHIHIHIPQHIc>T͟] d͍^FGNOJKNOLMRS<=c>U͟] d͍^TUXYXYXYXYPQXYc>V͟] d͍^VW^_Z[^_\]RS>?c!"M\D]ͦc!"M\D]ͦc!d]D]^gea!"M\D]ͦc!"M\D]ͦc!"M\D]ͦcD]xnD]aD]ynD]#aD]ynD]aD]xnD]aD]xnD]a>S͟] d͍^ !$%$%$%$%@A !c>T͟] d͍^"#&'()&'*+BC"#c>U͟] d͍^0145454545@A01c>V͟] d͍^2367:;6789BC23c!"M\D]ͦc!"M\D]ͦc!d]D]^geʶ!"M\D]ͦc!"M\D]ͦc!3d]D]͔`!{]!:d]͊]K^]D]_!3d]D]͔`!{]!:d]D]͔`͊]K^]D]_`geC͟] d>A͟]c>D͟] d>B͟]cwej>C͟] d>A͟]c>D͟] d>B͟]cwe!q"M\D]ͦc!i"M\D]ͦc!`"M\D] ͦc!"M\D]ͦc!V"M\D]ͦcÿ!q"M\D]ͦc!i"M\D] ͦc!`"M\D]ͦc!"M\D]#ͦc!V"M\D]ͦcwe!"M\!3d]ͦc!"M\!:d]ͦc!3"M\!3d]!qd]͔`ͦcwead!3d]!:d] D]>"D]>"!d]>">A͟]od!3d]D]͔`!:d] !d]>">B͟]odid!3d]D]͔`D]^gead!3d]D]͔`!:d] D]>"D]>"D]>"͍^odid!3d]D]͔`!{]!:d]͊]K^]!id]_!3d]!`d]__ge!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!"M\D]ͦc!V"M\D]ͦcad!3d]D]͔`D]!3d]D] ^`͔`!:d] D] >"D]>"͍^odidÿad!3d]!:d] D]>"D]>"!d]>">A͟]od!3d]D]͔`!:d] !d]>">B͟]od!3d]D]͔`!:d] D] >"͍^odidL^_͔"aL^_ek weJ>F͟] d͍^ <-->* ^ -+cadD] D] aD]D]%aҬadD] >"f^D]$`>">F͟]D]D]!d]$`͔`]D]D]!d]$`͔`]od͍^ od!d]D]͔`!{]ͩ0 I^]5od͍^ oda!aa-^͍^[_ge!3"M\D]ͦc!:"M\D]ͦc!A"M\!3d]ͦc!H"M\!:d]ͦcz!KWe!3d]D]^geC!"M\!/d]ͦc!3"M\D] ͦc!3d]D] ^gez!"M\!4d]ͦc!3"M\D]ͦc!:d]D]^geʱ!"M\!9d]ͦc!:"M\D]ͦc!:d]D]^ge!"M\!>d]ͦc!:"M\D]ͦc!"M\!:d]ͦc!"M\!3d]ͦc>C͟] d͍^c>D͟] d͍^c!d]D]^ge@@weJ!"MTrack-Info  R \D]>F͟]t6D]6`ͯ6p`ͦcD]>F͟]t6%aad!kd]!d]!d]͔` D]>"L^_>"D]>">F͟]!d]]]odidD]wn>F͟]!d]]]i6D]Fp`a!aaډwewD]6\D]̀aD]7\D]̀aD]6\D]̀aD]7\D]<̀aD]6\D]̀aD]7\D]̀a!Od]D]^ge!k"M\D]ͦc!"M\D]!Od]͔`ͦc!k"M\D]ͦc!"M\D]!Od]͔`ͦcad!kd]!d] D]>"D]>"D]>"͍^odidndndnndnnaeaaakakakpakpekpebpebebbh⡱ⳬⳲⳲⳲⳲvvktoiXnkkaa&*]b/_OP QASgF<-->* ^ \\\\j\\\\j-+K YZbbbbS !$%$%$%$%\\\\\\\@A !T"#&'()&'*+BC"#U0145454545\\\\\\\@A01V2367:;6789BC23A !B"#"CDEGHIJTrack-Info  R PLUS3DOSk9kOeta(i)=(i/256) $b(n,a)=n-(a*256) kLET bytealto=FN a(x): LET bytebajo=FN b(x,bytealto): POKE ADR,bytebajo: LET adr=adr+1: POKE adr,bytealto: 745:500 Movimiento:lii,coi inicial. lia,coa actual - lif,cof final. lan, can anterior - FT orientacion ISP indice sprite ispi = indice sprite inicial. ispf = final isp = I.sprite >a$=x$(ispisp+1):b$=z$(ispisp+1):c$=a$:d$=b$ <1;8;8;lia,coa;a$;lia+1,coa;b$ 7(mov=2lia=lif)(mov2coa=cof)44, rlan=lia:can=coa:coa=coa+(ftmov=1):lia=lia+(ftmov=2)+(ftymov=3):coa=coa+(ftmov=3) $flan,can;8;8;8;1;c$;lan+1,can;d$;lia,coa;a$;lia+1,coa;b$; &2mov=1isp=isp+2:isp=ispfisp=ispi (>c$=a$:d$=b$:a$=x$(ispisp+1):b$=z$(ispisp+1) * 24 , .2+++++ imprime en pos actual, sprite actual +++++ 05lia,coa;8;8;a$;lia+1,coa;b$: 2>lia,coa;8;8;1;a$;lia+1,coa;b$: d:0:0::e$="" gFX$="DEHIHIHIHIDEPQTUTUXYXYXYXYXY":Z$="FGNOLMNOJK<=RS>?VW^_Z[^_\]^_" j{fty=0:ci=0:cf=31:li=0:lf=15:2075:pa=2:ik=0:2000:1100L:pa=3:t$="09:27 PM, Lloricatown...":2010:2035:t$="En plena ronda nocturna (bueno, no muy nocturna)...":2010:2035:t$="Batmanolo,guardian de Lloricatown, ve un destello sospechoso...":2010:2035 misp=13 :2035:pa=2:lia=2:coa=28:mov=2:cof=28:lif=11 :ft=1:10 :lia,coa;1;8;8;a$;lia+1,coa;b$ pispi=19:isp=17:ispf=27:lia=11 :coa=28:cof=23:ft=-1:mov=1:10 :a$="TU":b$="VW":480 s}i=1502:13 ,16;1;0;6;"":13 ,16;1;5;0;"":i vjt$="Anda! un destello sospechoso!... mmMMmm algo raro pasa en OjetenLabs. Echare un vistazo":2010 yisp=13 :pa=3:2035:pa=2:502:isp=17:ispf=27:mov=1:ft=-1:lia=11 :coa=23:cof=21:10 :b$=d$:502 |isp=15:mov=3:ft=-1:fty=-1:lia=11 :lif=7:coa=21:cof=17:10 :502 isp=13 :lia=8:coa=17:mov=2:lif=13 :ft=1:10 :lia,coa;0;2;"";lia+1,coa;a$:2060  ****** vinyeta 2 ***** Vci=1:cf=26:li=1:lf=14:2075:pa=2:2000 1500 t$="Mientras tanto,En los laboratorios ojetenlabs":2010:t$="El doctor Jose Antonio Malvado ultima su plan para dominar la ciudad":2010:9100# 0:J=02:I=810 :I,15-J;5;0;"";I,16+J;"":I:0.01z# >,45-:J Y$="-1":W$="23":i=13:9 ,19-i;4;0;Y$(1i);7;10 ,19-i;W$(1i):30:i li=13:9 ,17;4;" ":20:9 ,17;4;"-1":20:i 100d:J=02:I=810 :I,12 +J;5;0;"";I,19-J;"":I:0.01z# >,25:J 2060  +++++++ vinyeta 3 +++++++ Wci=2:cf=31:li=16:lf=20:2075:pa=0:2000 L18,28;4;0;"-1";19,28;7;"23" li=16:ci=2:cf=28:t$="colarse ha sido facil, ahora conectare mi gas mutagenico en la camara":2010:cf=31:2060  ++++++++ vinyeta 4 ++++++ Jci=4:cf=30:li=3:lf=14:2075:1200 2i=411 :i,20;0;"";:i A10 ,20;0;0;"";11 ,20;"" ni=11 4-1:i,20;6;0;1;"":0.01z# >,10 +i:i:100d t$="El mutageno transformaraa este pringao en un mutante servicial":2010:11 ,16;" ";12 ,16;"""#":8888" Xi=711 :i,20;6;0;1;1Track-Info  R ;"";:i:100d #i=120:8;8;8;10 ,20;"x";11 ,20;"":0.01z# >,20+i:8;8;8;10 ,20;"";11 ,20;"y":0.01z# >,30+i:i:10 ,20;8;8;8;"n";11 ,20;"o" t$="Funciona! Cargare el gasen los misiles que he robado de Ojetenlabs... ":2010:t$="y he llevado a la base secreta a las afueras deLloricaTown":2010 -->entra batmanolo -11 ,5;"E";12 ,5;"G" :t$="Todo Lloricatown sera mutante!!..."+f$:2010 /11 ,5;"DE";12 ,5;"FG" >t$="Todo Lloricatown Estara a mis ordenes..."+f$:2010 Zt$="Y para? Aburrirlos con tus frases?":ci=5:li=7:cf=26:2010 o11 ,17;"-1";12 ,17;"23":t$="que?":li=10 :ci=18:cf=24:2010 %i=710 :11 ,i;"/" $i>711 ,i-1;"" 0.01z# >,35# i >ci=4:cf=30:li=3:lf=14:2060  ++++++++ Vinyeta 5 +++++++++ >li=1:lf=10 :ci=1:cf=14:2075 8,2;1;"eeeeeeeeeee";9 ,2;"":9993 ':5,6;6;0;"&'";6,6;"()";4,6;"";7,6;"":9996 ' i100d:i=25:5,i;"/":0.01z# >,35#:i:5,i;6;0;"" N9993 ':li=5:co=7:a$="&'":b$="()":1900l:9996 ' >li=1:lf=10 :ci=1:cf=14:2060  ++++++++ vinyeta 6 +++++++ Vli=1:lf=4:ci=14:cf=29:pa=0:2075:2000 2,26;4;0;"-1";3,26;7;"23":t$="nooo! El mutageno!":li=1:ci=14:cf=26:2010:cf=29:2060  ++++++++ vinyeta 7 ++++++ nli=5:lf=14:ci=1:cf=30:2075:pa=7:ik=0:2000:1202 13 ,2;5;0;"eee";11 ,8;0;7;"DE";12 ,8;"FG";11 ,15;"";12 ,15;""; ?t$="muere!":li=9 :ci=16:cf=24:2010  11 ,15;"-1";12 ,15;"23";10 ,16;"":20:11 ,14;1;4;"":0.1}L,502:40(:0.1}L,20  491,130:3,-8:-1,8:96`,130:-3,-8:1,8:0.1}L,20 20:i=13:1:0.01z# >,10 :524,122z:21,-42*:92\,122z:-20,-42* T524,122z:21,-42*:92\,122z:-20,-42*:i  0 pa$="DE":b$="FG":li=11 :co=8:11 ,8;1;" !";12 ,8;"""#":1900l At$="Mi traje!":li=9 :ci=2:cf=13 :2010 st$="a correr!":li=9 :ci=2:cf=13 :2010:10 ,2;7;0;"" !Gx$=" !$%$%$%$% !@A01014545454545":z$="""#&'()&'*+()BC8923678967:;67" $&lia=11 :coa=8:mov=1:cof=2:ft=-1:ik=0:ispi=19:isp=17:ispf=27:0:11 ,8;1;" !";12 ,8;"""#":20:11 ,2;"";12 ,2;"";11 ,15;" ";12 ,15;"""#" 'Bt$="A por el!":li=9 :ci=15:cf=26:2010 *210 ,16;0;7;"" -11 ,24;"lpvx";12 ,24;"mqwy":t$="GNYE!":li=9 :ci=23:cf=30:2010:coa=23:cof=18:lia=11 :5100 0>li=5:lf=14:ci=1:cf=30:2060  3++++++ vinyeta 8 ++++++ 6Jli=0:lf=12 :ci=2:cf=30:2075:2000 9 1300 <lia=4:coa=28:mov=1:cof=3:ft=-1:ispi=19:isp=17:ispf=27:20:4,3;"";5,3;"" ?4coa=23:cof=3:lia=4:5100 B*** Vinyeta 9 ******* Eb2060 :li=0:lf=20:ci=0:cf=31:2075:2000:1400x Hlia=6:coa=28:mov=1:cof=17:ft=-1:ispi=19:isp=17:ispf=27:20:t$="me pisan los taloneTrack-Info  R s! Rapido!al ascensor! He de SALTAR!":LI=0:CI=0:CF=31:2010 Kzb$=d$:502:isp=15:mov=3:ft=-1:fty=-1:lia=6:coa=16:cof=14:20 N^b$=d$:502:isp=15:mov=3:ft=-1:fty=1:cof=12 :20 Q`502:lia=7:isp=13 :mov=2:lif=18:ft=1:20:502 Tu9994 ':t$="Ostiaaaa":i=1̱t$:0;1;7;11 +i,12 ;t$(i);"";:i:9996 ' W5lia=6:coa=24:cof=16:5100 Z30:6,16;"n";7,16;"o":20:9994 ':5,16;0;7;1;"sa matao Paco":9996 ':0:li=0:ci=0:cf=31:lf=20:2060  ]+++ vINYETA 10 +++++ `Uli=1:ci=1:cf=28:2075:pa=1:ik=7:2000 c 1430 f{isp=13 :mov=2:lia=2:lif=9 :coa=5:ft=1:20:lia,coa;"";lia+1,coa;a$ ihI=12:.004yn,1:.003xD,-12 :.005y# >,-20:.003xD,1:.004yn,-6:.002xn,6:.007ye`A,-13 :.003xD,-23:.004yn,-12 :.003xD,9 :.003xD,-9 :.002xn,-4:.005y# >,-30:.007ye`A,-3:.005y# >,-5:.002xn,-2:I llia+1,coa;" !" o*t$="la virgen, que ostion!":2010 r0lia,coa;" !";lia+1,coa;"&'":100d ulia,coa;1;" !";lia+1,coa;"&'":mov=1:cof=14:ft=1:ik=0:ispi=3:isp=1:ispf=9 :20:lia+1,coa;8;8;1;d$;lia+1,coa;"&'";:t$="Veo restos de mi traje esparcidos por la ciudad":LI=1:CI=1:CF=28:2010:t$="Y El mutageno!Ha caido por todo LLoricaTown!":2010 xBt$="RECUPERARE EL Traje, RECUPERARE el mutageno":2010 {3t$="ANULARE el lanzamiento demisiles":2010 ~=t$="y volvere a Ojetenlabs a detener al doctor":2010 `502:isp=5:mov=3:ft=1:fty=-1:cof=16:20:502 isp=13 :mov=2:lif=18:ft=1:lia=8:20:lia,coa;8;8;1;a$;lia+1,coa;b$:9097#:restaura UDGs originales 0::9994 ':394:l=18:j$,j:k=15-(j$)/2:i=20j-1:i,k;6;0;j$;i+1,k;0;j$:i:3:l "recupera el traje",6," recupera el mutageno!",7,"anula el lanzamiento de misiles",8,"vuelve a Ojetenlabs",9 ,"y deten al doctor",10 ,"Jose Antonio Malvado",11 ,"antes de que sus mutantes",13 ,"recojan primero el mutageno",14  0 $i=114:3582 :i !****** MENU PRINCIPAL ********* 0:0:0::9500%:9994 ':501:xx=0:j=12:a$,li,co:605]:j:0:7:#1;"1989,2023 ANGEL LASTRE":9996 ' V"BATMANOLO CONTRA EL",1,6,"ATAQUE MUTANTE A LLORICATOWN",3,2 ix=1:x$=" Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX " li=6:co=9 :la=5:ca=8:il=1:ic=1:s$="DE":T$="<=":u$="TU":V$=">?":a$=s$:b$=t$:c$=a$:d$=b$:ct=3:cta=2:it=1 /8;8;la,ca;A$;la+1,ca;B$ li,co;1;8;8;8;A$;li+1,co;b$;la,ca;c$;la+1,ca;d$:la=li:ca=co:li=li+il:co=co+ic:c$=a$:d$=b$ k$=:k$""615g & li>19li<1il=-il 0+co>29co<1ic=-ic:580D : 9994 ' >&21,0;x$(ixix+31) ?ix=x$-31ix=0 C&ix=ix+1:9996 ':530 Da$=s$a$=u$:b$=v$: Na$=s$:b$=t$: W X$++++++ letras de colorines ++++++ ]pa=8:i=1̱a$: ^%xx=1pa=1+(*7) _a$(i)=" "pa=8 bGli,co;9Track-Info  R  ;pa;a$(i):co=co+1:.001wn,40(-co:i: gk$="1"100d hk$="2"700 iyk$="3"9994 ':0,4;2;6;1;"Cargando...pulse PLAY":19,0;0:"" jk$="4"840H k opcion 2 REDEFINE  :9994 ':ct=1:23658j\,8:x=20:y=16:t(44,):a$="Puerto = 256*(255-t(x)) + 254":a$="Teclas Spc,Sym,M,N,B":t(44,)=224:t(44,)=224:t(30)=224+27:t(31)=224+23:t(19)=224+15::a$="Teclas Ent,L,K,J,H":t(44,)=192+30:t(29)=192+29:t(28)=192+27:t(27)=192+23:t(25)=192+15::a$="Teclas P,O,I,U,Y":t(33!)=160+30:t(32 )=160+29:t(26)=160+27:t(38&)=160+23:t(42*)=160+15::a$="Teclas 0,9,8,7,6":t(1)=128+30:t(10 )=128+29:t(9 )=128+27:t(8)=128+23:t(7)=128+15::a$="Teclas 1,2,3,4,5":t(2)=96`+30:t(3)=96`+29:t(4)=96`+27:t(5)=96`+23:t(6)=96`+15::a$="Teclas Q,W,E,R,T":t(34")=64@+30:t(40()=64@+29:t(22)=64@+27:t(35#)=64@+23:t(37%)=64@+15::a$="Teclas A,S,D,F,G":t(18)=32 +30:t(36$)=32 +29:t(21)=32 +27:t(23)=32 +23:t(24)=32 +15::a$="Teclas Caps,Z,X,C,V":t(44,)=0+30:t(43+)=0+29:t(41))=0+27:t(20)=0+23:t(39')=0+15 i=317:i,1;1;""::i:2,1;7;0;"CONTROLES":li=5:co=2:a$="Izquierda?":600X:724:puI=p:vI=aux:li=7:CO=2:a$="Derecha?":600X:724:puD=p:vD=aux:li=9 :CO=2:a$="Lanzar arma?":600X:724:puL=p:vL=aux:a$="Salto?":LI=11 :CO=2:600X:724:puS=p:vS=aux:LI=13 :CO=2:a$="Usar ascensor?":600X:724:puA=p:vA=aux:li=15:co=2:a$="Cambio Manolo/Batmano?":600X:724:puT=p:vT=aux:18,1;7;0;"OK!"::750:0:9996 '::500 A$=:A$=""724 X32 =a$aux=30:p=7:A$="SP":736:caso especial Tecla Espacio W13 =a$aux=30:p=6:a$="Ent":736:caso especial Tecla Enter Mp=0:aux=t(a$-47/):aux128aux=aux-128:p=4 -aux64@aux=aux-64@:p=p+2 -aux32 aux=aux-32 :p=p+1 hp=2^p:p=256*(255-p)+254:aux=160+aux:PRINT "Puerto: ";p;" Valor: ";aux Fu(ct,1)=p:u(ct,2)=aux:u(ct,3)=A$:ct=ct+1 8li,25;0;6;;A$:0.01z# >,3  6u(6,3):u(1,1)=57342:u(2,1)=57342:u(3,1)=32766:u(4,1)=64510:u(5,1)=65022:u(6,1)=65022:u(1,2)=189:u(2,2)=190:u(3,2)=190:u(4,2)=190:U(5,2)=190:U(6,2)=189:U(1,3)=79O:U(2,3)=80P:U(3,3)=32 :U(4,3)=81Q:U(5,3)=65A:U(6,3)=83S (**** pokeo de puertos, valores y codes #dr=59528:I=16 BAL=A(u(i,1)):BBAJ=B(u(i,1),BAL):dr,BAL:dr=dr+1:dr,BBAJ:dr=dr+1:dr,u(i,2):dr=dr+1:dr,u(i,3):dr=dr+1 I  H opcion 4 I95255%:500 R*** moNTAR EDIFICIOS **** SCHAR "LI-CO-IK-PA-AL","GRAF" T5LLAMADA NECESITA EL RESTORE A LA LINIA Y NUMBLOQUES UI=1NB:A$,J$:J=0̰A$(9 10 )-1:A$(12)+J,A$(34);ٰA$(56);ڰA$(78);j$:J:I:  J"++++++++++ PANTALLAS +++++++++++ K"********* PANTALLA 1 ********** L#1101M:NB=9 :850R Mh"0101000304","","1001000605","","1104000604","","1302000702","" Track-Info  R Nb"1208000703","","1015000505","","1311000602","","1126070002","","0919000706","" e^i=18:8,120x+((i*i)/3):3;2;231,0:i j10 ,25;2;0;"";0;2;"";13 ,21;0;5;"";14,21;6;"": "********* PANTALLA 2 *********** z7:0:i=412 :i,5;"":i:12 ,10 ;2;6;"b" 11 ,11 ;"ccc";12 ,11 ;"";12 ,19;"";1;"";0;"";1;13 ,5;"eeeeeeeeeeeeeeeeeeeeeeee";8,7;"";9 ,7;""; 511 ,24;"lrtx";12 ,24;"msuy" 111 ,16;"-1";12 ,16;"23"  !******** PANTALLA 3 *********** %i=610 :i,3;0;7;"";1;"";0;"";1;"";0;"":i:i=611 5:i,3;5;0;"eeeeeeeeeeeeeeeeeeeeeeeeee":i:9994 ':8,11 ;2;7;"No correr":9996 ' R1,4;1;5;"";1,18;"" R2,4;1;5;"";2,18;"" F x******** PANTALLA 4 ******** yi=119:i,1;1;"";0;5;"`";7;"";5;0;"";:i:i=9 19:i,15;7-(1i<14);"";:i:i=8146:i,15;5;0;"eeeeeeeeeeeeeee":i:8,12 ;0;7;"";12 ,24;0;"ccccc";13 ,24;"":9994 ':10 ,18;2;7;"No saltar":9996 '  ******* PANTALLA 5 ********* \i=210 :i,2;7;0;"";6;"";0;7;"";1;6;"";7;".":i:i=13 19:i,2;7;0;".":i:i=11 12 :i,2;5;0;"":i:9994 ':15,2;6;0;"OJETENLABS":9996 ' #1445:nb=5:850R ^"1324000107","","1518000605","","1423000606","","1621000504","","1820000702",""  **** fachada ojetenlabs **** Hi=213 :i,10 ;5;0;"":i Si=13:10 +i,6;0;5;"":i fi=13:10 +i,12 -i;5;0;"";7;"";5;"":i Gi=56:i,9 ;6;0;"":i J9994 ':6,12 ;7;0;"OJETENLABS":9996 '  k****** EXPLOSION ****** l~1:8:8:I=16:J=I-1:0.003xD,15-(i*2):0.002xn,5-(i*2) n7LI-I,CO-I;A$(1);LI-I,CO+I+1;A$(2) rGLI+I+1,CO-I;B$(1);LI+I+1,CO+I+1;B$(2) v7LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2) zGLI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) |i ~j=6:LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2);LI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) 0:7:0: .+++++++++++TINTA FONDO VINYETA++++++++++++++ Qi=li+1lf-1:i,ci+1;pa;ik;f$(1((cf-ci)-2)):i  .++++++++++++++TEXTO VINYETA+++++++++++++++++ Dlinias=(t$)/(cf-ci):(linias)>1linias=(linias)+1 ~9994 ':i=1linias:ini=(cf-ci-2)*(i-1):fin=ini+(cf-ci-2):fin>t$t$=t$+e$(1(fin-t$)) Ali+i,ci+1;7;0;1;t$(ini+1fin) i 9996 ':0: i=1linias: ?li+i,ci+1;pa;8;0;e$(1cf-2) i  /+++++++++++++APAGAMOS VINYETA++++++++++++++++  hf$="":i=LILF:i,ci;1;0;1;F$(1(cf-ci)):i  )++++ dibujar marco y fondo vinyeta ++++ &f$=""  i=lilf %5i,ci;7;0;0;f$(1cf-ci); *i /0:((ci)*8)+3,((21-li)*8)+4:((cf-ci-1)*8),0:0,-(lf-li)*8-1:-((cf-ci-1)*8),0:0,(lf-li)*8 4Track-Info  R  "***** Movimientos mutantes ***** c$="lpvxlpvx":d$="mqwymqwy" j=1:i=coacof-1 @lia,i;c$(jj+3);"";lia+1,i;d$(jj+3);""; #j=j+1:j>4j=1 00.006yD,30+i:0.002xn,20+j i  ".005y# >,12 :.005y# >,10.88.z:.005y# >,8.84 p:.005y# >,7.02` :.005y# >,4.98\(:.005y# >,3.86w =q:.005y# >,2.039~:.005y# >,0: ".005y# >,0:.005y# >,2.039~:.005y# >,3.86w =q:.005y# >,4.98\(:.005y# >,7.02` :.005y# >,8.84 p:.005y# >,10.88.z:.005y# >,12 : #' #/si llamo por aqui, restauro a UDGS originales #9110#:9101# #'****** UDG's especiales para el comic # 9102# # F="C"""+7:A:F,A:F #M60<,126~,90Z,126~,60<,165,153,66B #I60<,24,24,24,36$,36$,36$,66B #M240,248,72H,524,36$,200,240,32 # ***** uDG's orignales #M0,15,63?,121y,119w,239,239,255 #O0,240,252,254,254,255,239,255 #L75K,101e,170,174,64@,28,38&,60< # %4**************** pantalla de inicio ************** %9994 ':i=012 :i,0;0;1+(i>11 );,,:i:I=13 21:I,0;6;,,:i %i=18:0,80P+((i*i)/3):1;2;255,0:i:12 ,25;6;2;"" %e9505!%:i=17:li,co,pa,al,z$:j=0al-1:li+j,co;0;pa;z$:j:i %!6,11 ,1,8,"",8,10 ,6,6,"",9 ,14,7,5,"",10 ,17,2,3,"",11 ,21,1,3,"",12 ,18,5,3,"",12 ,8,1,3,"" %0 9994 ' %1O95222%:xx=0:j=13:a$,li,co:605]:j:9996 ' %2Y"1 Intro",16,10 ,"2 Redefinir",17,10 ,"3 Jugar",18,10 %4 %6:9994 ':xx=1:li=15:co=0:a$="Para Freya, seras capaz":600X:li=16:co=0:a$="de hacer cosas maravillosas":600X:0 %99996 ': %:CHAR radiactivo 'Mi=16:u(i,1);",";u(i,2);" c:";(u(i,3)):i: ' =236066\,160:236077\,231::CHAR normal ' 7236066\,0:236077\,60<::Bmn CHAR ' 0236066\,211:236077\,233: ' I=0184:(59528+I);"->";(59528+I)*256+(59528+i+1);",";(59528+i+2):I: '59527:"batmanol.a"59552:"batmanol.b"65368X::5,9 ;6;2;1;"PARE LA CINTA":0:1 a<k@xypaba  ttiniani2s ioooiaaspsp _OP QAS,~}{wo>;[7/^W=O] ] # E]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Y\ -1W\ 23F]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Jrecojan primero el mutagenoZ\n\m\mX Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX SDET<=UTUV>?B>?CTUD>?K2A\#006:-((cf-ci-1)*8),0:0,(lf-li)*8 4Track-Info  R PLUS3DOSkCk'YeHa(i)=(i/256) $b(n,a)=n-(a*256) kLET bytealto=FN a(x): LET bytebajo=FN b(x,bytealto): POKE ADR,bytebajo: LET adr=adr+1: POKE adr,bytealto: 745:500 Movimiento:lii,coi inicial. lia,coa actual - lif,cof final. lan, can anterior - FT orientacion ISP indice sprite ispi = indice sprite inicial. ispf = final isp = I.sprite >a$=x$(ispisp+1):b$=z$(ispisp+1):c$=a$:d$=b$ <1;8;8;lia,coa;a$;lia+1,coa;b$ 7(mov=2lia=lif)(mov2coa=cof)44, rlan=lia:can=coa:coa=coa+(ftmov=1):lia=lia+(ftmov=2)+(ftymov=3):coa=coa+(ftmov=3) $flan,can;8;8;8;1;c$;lan+1,can;d$;lia,coa;a$;lia+1,coa;b$; &2mov=1isp=isp+2:isp=ispfisp=ispi (>c$=a$:d$=b$:a$=x$(ispisp+1):b$=z$(ispisp+1) * 24 , .2+++++ imprime en pos actual, sprite actual +++++ 05lia,coa;8;8;a$;lia+1,coa;b$: 2>lia,coa;8;8;1;a$;lia+1,coa;b$: d:0:0::e$="" gFX$="DEHIHIHIHIDEPQTUTUXYXYXYXYXY":Z$="FGNOLMNOJK<=RS>?VW^_Z[^_\]^_" j{fty=0:ci=0:cf=31:li=0:lf=15:2075:pa=2:ik=0:2000:1100L:pa=3:t$="09:27 PM, Lloricatown...":2010:2035:t$="En plena ronda nocturna (bueno, no muy nocturna)...":2010:2035:t$="Batmanolo,guardian de Lloricatown, ve un destello sospechoso...":2010:2035 misp=13 :2035:pa=2:lia=2:coa=28:mov=2:cof=28:lif=11 :ft=1:10 :lia,coa;1;8;8;a$;lia+1,coa;b$ pispi=19:isp=17:ispf=27:lia=11 :coa=28:cof=23:ft=-1:mov=1:10 :a$="TU":b$="VW":480 s}i=1502:13 ,16;1;0;6;"":13 ,16;1;5;0;"":i vjt$="Anda! un destello sospechoso!... mmMMmm algo raro pasa en OjetenLabs. Echare un vistazo":2010 yisp=13 :pa=3:2035:pa=2:502:isp=17:ispf=27:mov=1:ft=-1:lia=11 :coa=23:cof=21:10 :b$=d$:502 |isp=15:mov=3:ft=-1:fty=-1:lia=11 :lif=7:coa=21:cof=17:10 :502 isp=13 :lia=8:coa=17:mov=2:lif=13 :ft=1:10 :lia,coa;0;2;"";lia+1,coa;a$:2060  ****** vinyeta 2 ***** Vci=1:cf=26:li=1:lf=14:2075:pa=2:2000 1500 t$="Mientras tanto,En los laboratorios ojetenlabs":2010:t$="El doctor Jose Antonio Malvado ultima su plan para dominar la ciudad":2010:9100# 0:J=02:I=810 :I,15-J;5;0;"";I,16+J;"":I:0.01z# >,45-:J Y$="-1":W$="23":i=13:9 ,19-i;4;0;Y$(1i);7;10 ,19-i;W$(1i):30:i li=13:9 ,17;4;" ":20:9 ,17;4;"-1":20:i 100d:J=02:I=810 :I,12 +J;5;0;"";I,19-J;"":I:0.01z# >,25:J 2060  +++++++ vinyeta 3 +++++++ Wci=2:cf=31:li=16:lf=20:2075:pa=0:2000 L18,28;4;0;"-1";19,28;7;"23" li=16:ci=2:cf=28:t$="colarse ha sido facil, ahora conectare mi gas mutagenico en la camara":2010:cf=31:2060  ++++++++ vinyeta 4 ++++++ Jci=4:cf=30:li=3:lf=14:2075:1200 2i=411 :i,20;0;"";:i A10 ,20;0;0;"";11 ,20;"" ni=11 4-1:i,20;6;0;1;"":0.01z# >,10 +i:i:100d t$="El mutageno transformaraa este pringao en un mutante servicial":2010:11 ,16;" ";12 ,16;"""#":8888" Xi=711 :i,20;6;0;1;1Track-Info  R ;"";:i:100d #i=120:8;8;8;10 ,20;"x";11 ,20;"":0.01z# >,20+i:8;8;8;10 ,20;"";11 ,20;"y":0.01z# >,30+i:i:10 ,20;8;8;8;"n";11 ,20;"o" t$="Funciona! Cargare el gasen los misiles que he robado de Ojetenlabs... ":2010:t$="y he llevado a la base secreta a las afueras deLloricaTown":2010 -->entra batmanolo -11 ,5;"E";12 ,5;"G" :t$="Todo Lloricatown sera mutante!!..."+f$:2010 /11 ,5;"DE";12 ,5;"FG" >t$="Todo Lloricatown Estara a mis ordenes..."+f$:2010 Zt$="Y para? Aburrirlos con tus frases?":ci=5:li=7:cf=26:2010 o11 ,17;"-1";12 ,17;"23":t$="que?":li=10 :ci=18:cf=24:2010 %i=710 :11 ,i;"/" $i>711 ,i-1;"" 0.01z# >,35# i >ci=4:cf=30:li=3:lf=14:2060  ++++++++ Vinyeta 5 +++++++++ >li=1:lf=10 :ci=1:cf=14:2075 8,2;1;"eeeeeeeeeee";9 ,2;"":9993 ':5,6;6;0;"&'";6,6;"()";4,6;"";7,6;"":9996 ' i100d:i=25:5,i;"/":0.01z# >,35#:i:5,i;6;0;"" N9993 ':li=5:co=7:a$="&'":b$="()":1900l:9996 ' >li=1:lf=10 :ci=1:cf=14:2060  ++++++++ vinyeta 6 +++++++ Vli=1:lf=4:ci=14:cf=29:pa=0:2075:2000 2,26;4;0;"-1";3,26;7;"23":t$="nooo! El mutageno!":li=1:ci=14:cf=26:2010:cf=29:2060  ++++++++ vinyeta 7 ++++++ nli=5:lf=14:ci=1:cf=30:2075:pa=7:ik=0:2000:1202 13 ,2;5;0;"eee";11 ,8;0;7;"DE";12 ,8;"FG";11 ,15;"";12 ,15;""; ?t$="muere!":li=9 :ci=16:cf=24:2010  11 ,15;"-1";12 ,15;"23";10 ,16;"":20:11 ,14;1;4;"":0.1}L,502:40(:0.1}L,20  491,130:3,-8:-1,8:96`,130:-3,-8:1,8:0.1}L,20 20:i=13:1:0.01z# >,10 :524,122z:21,-42*:92\,122z:-20,-42* T524,122z:21,-42*:92\,122z:-20,-42*:i  0 pa$="DE":b$="FG":li=11 :co=8:11 ,8;1;" !";12 ,8;"""#":1900l At$="Mi traje!":li=9 :ci=2:cf=13 :2010 st$="a correr!":li=9 :ci=2:cf=13 :2010:10 ,2;7;0;"" !Gx$=" !$%$%$%$% !@A01014545454545":z$="""#&'()&'*+()BC8923678967:;67" $&lia=11 :coa=8:mov=1:cof=2:ft=-1:ik=0:ispi=19:isp=17:ispf=27:0:11 ,8;1;" !";12 ,8;"""#":20:11 ,2;"";12 ,2;"";11 ,15;" ";12 ,15;"""#" 'Bt$="A por el!":li=9 :ci=15:cf=26:2010 *210 ,16;0;7;"" -11 ,24;"lpvx";12 ,24;"mqwy":t$="GNYE!":li=9 :ci=23:cf=30:2010:coa=23:cof=18:lia=11 :5100 0>li=5:lf=14:ci=1:cf=30:2060  3++++++ vinyeta 8 ++++++ 6Jli=0:lf=12 :ci=2:cf=30:2075:2000 9 1300 <lia=4:coa=28:mov=1:cof=3:ft=-1:ispi=19:isp=17:ispf=27:20:4,3;"";5,3;"" ?4coa=23:cof=3:lia=4:5100 B*** Vinyeta 9 ******* Eb2060 :li=0:lf=20:ci=0:cf=31:2075:2000:1400x Hlia=6:coa=28:mov=1:cof=17:ft=-1:ispi=19:isp=17:ispf=27:20:t$="me pisan los taloneTrack-Info  R s! Rapido!al ascensor! He de SALTAR!":LI=0:CI=0:CF=31:2010 Kzb$=d$:502:isp=15:mov=3:ft=-1:fty=-1:lia=6:coa=16:cof=14:20 N^b$=d$:502:isp=15:mov=3:ft=-1:fty=1:cof=12 :20 Q`502:lia=7:isp=13 :mov=2:lif=18:ft=1:20:502 Tu9994 ':t$="Ostiaaaa":i=1̱t$:0;1;7;11 +i,12 ;t$(i);"";:i:9996 ' W5lia=6:coa=24:cof=16:5100 Z30:6,16;"n";7,16;"o":20:9994 ':5,16;0;7;1;"sa matao Paco":9996 ':0:li=0:ci=0:cf=31:lf=20:2060  ]+++ vINYETA 10 +++++ `Uli=1:ci=1:cf=28:2075:pa=1:ik=7:2000 c 1430 f{isp=13 :mov=2:lia=2:lif=9 :coa=5:ft=1:20:lia,coa;"";lia+1,coa;a$ ihI=12:.004yn,1:.003xD,-12 :.005y# >,-20:.003xD,1:.004yn,-6:.002xn,6:.007ye`A,-13 :.003xD,-23:.004yn,-12 :.003xD,9 :.003xD,-9 :.002xn,-4:.005y# >,-30:.007ye`A,-3:.005y# >,-5:.002xn,-2:I llia+1,coa;" !" o*t$="la virgen, que ostion!":2010 r0lia,coa;" !";lia+1,coa;"&'":100d ulia,coa;1;" !";lia+1,coa;"&'":mov=1:cof=14:ft=1:ik=0:ispi=3:isp=1:ispf=9 :20:lia+1,coa;8;8;1;d$;lia+1,coa;"&'";:t$="Veo restos de mi traje esparcidos por la ciudad":LI=1:CI=1:CF=28:2010:t$="Y El mutageno!Ha caido por todo LLoricaTown!":2010 xBt$="RECUPERARE EL Traje, RECUPERARE el mutageno":2010 {3t$="ANULARE el lanzamiento demisiles":2010 ~=t$="y volvere a Ojetenlabs a detener al doctor":2010 `502:isp=5:mov=3:ft=1:fty=-1:cof=16:20:502 isp=13 :mov=2:lif=18:ft=1:lia=8:20:lia,coa;8;8;1;a$;lia+1,coa;b$:9097#:restaura UDGs originales 0::9994 ':394:l=18:j$,j:k=15-(j$)/2:i=20j-1:i,k;6;0;j$;i+1,k;0;j$:i:3:l "recupera el traje",6," recupera el mutageno!",7,"anula el lanzamiento de misiles",8,"vuelve a Ojetenlabs",9 ,"y deten al doctor",10 ,"Jose Antonio Malvado",11 ,"antes de que sus mutantes",13 ,"recojan primero el mutageno",14  0 $i=114:3582 :i !****** MENU PRINCIPAL ********* 0:0:0::9500%:9994 ':501:xx=0:j=12:a$,li,co:605]:j:0:7:#1;"1989,2023 ANGEL LASTRE":9996 ' V"BATMANOLO CONTRA EL",1,6,"ATAQUE MUTANTE A LLORICATOWN",3,2 ix=1:x$=" Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX " li=6:co=9 :la=5:ca=8:il=1:ic=1:s$="DE":T$="<=":u$="TU":V$=">?":a$=s$:b$=t$:c$=a$:d$=b$:ct=3:cta=2:it=1 /8;8;la,ca;A$;la+1,ca;B$ li,co;1;8;8;8;A$;li+1,co;b$;la,ca;c$;la+1,ca;d$:la=li:ca=co:li=li+il:co=co+ic:c$=a$:d$=b$ k$=:k$""615g & li>19li<1il=-il 0+co>29co<1ic=-ic:580D : 9994 ' >&21,0;x$(ixix+31) ?ix=x$-31ix=0 C&ix=ix+1:9996 ':530 Da$=s$a$=u$:b$=v$: Na$=s$:b$=t$: W X$++++++ letras de colorines ++++++ ]pa=8:i=1̱a$: ^%xx=1pa=1+(*7) _a$(i)=" "pa=8 bGli,co;9Track-Info  R  ;pa;a$(i):co=co+1:.001wn,40(-co:i: gk$="1"100d hk$="2"700 ik$="3"9994 ':0,4;2;6;1;"Cargando...pulse PLAY":19,0;0:"batmanol.c" jk$="4"840H k opcion 2 REDEFINE  :9994 ':ct=1:23658j\,8:x=20:y=16:t(44,):a$="Puerto = 256*(255-t(x)) + 254":a$="Teclas Spc,Sym,M,N,B":t(44,)=224:t(44,)=224:t(30)=224+27:t(31)=224+23:t(19)=224+15::a$="Teclas Ent,L,K,J,H":t(44,)=192+30:t(29)=192+29:t(28)=192+27:t(27)=192+23:t(25)=192+15::a$="Teclas P,O,I,U,Y":t(33!)=160+30:t(32 )=160+29:t(26)=160+27:t(38&)=160+23:t(42*)=160+15::a$="Teclas 0,9,8,7,6":t(1)=128+30:t(10 )=128+29:t(9 )=128+27:t(8)=128+23:t(7)=128+15::a$="Teclas 1,2,3,4,5":t(2)=96`+30:t(3)=96`+29:t(4)=96`+27:t(5)=96`+23:t(6)=96`+15::a$="Teclas Q,W,E,R,T":t(34")=64@+30:t(40()=64@+29:t(22)=64@+27:t(35#)=64@+23:t(37%)=64@+15::a$="Teclas A,S,D,F,G":t(18)=32 +30:t(36$)=32 +29:t(21)=32 +27:t(23)=32 +23:t(24)=32 +15::a$="Teclas Caps,Z,X,C,V":t(44,)=0+30:t(43+)=0+29:t(41))=0+27:t(20)=0+23:t(39')=0+15 i=317:i,1;1;""::i:2,1;7;0;"CONTROLES":li=5:co=2:a$="Izquierda?":600X:724:puI=p:vI=aux:li=7:CO=2:a$="Derecha?":600X:724:puD=p:vD=aux:li=9 :CO=2:a$="Lanzar arma?":600X:724:puL=p:vL=aux:a$="Salto?":LI=11 :CO=2:600X:724:puS=p:vS=aux:LI=13 :CO=2:a$="Usar ascensor?":600X:724:puA=p:vA=aux:li=15:co=2:a$="Cambio Manolo/Batmano?":600X:724:puT=p:vT=aux:18,1;7;0;"OK!"::750:0:9996 '::500 A$=:A$=""724 X32 =a$aux=30:p=7:A$="SP":736:caso especial Tecla Espacio W13 =a$aux=30:p=6:a$="Ent":736:caso especial Tecla Enter Mp=0:aux=t(a$-47/):aux128aux=aux-128:p=4 -aux64@aux=aux-64@:p=p+2 -aux32 aux=aux-32 :p=p+1 hp=2^p:p=256*(255-p)+254:aux=160+aux:PRINT "Puerto: ";p;" Valor: ";aux Fu(ct,1)=p:u(ct,2)=aux:u(ct,3)=A$:ct=ct+1 8li,25;0;6;;A$:0.01z# >,3  6u(6,3):u(1,1)=57342:u(2,1)=57342:u(3,1)=32766:u(4,1)=64510:u(5,1)=65022:u(6,1)=65022:u(1,2)=189:u(2,2)=190:u(3,2)=190:u(4,2)=190:U(5,2)=190:U(6,2)=189:U(1,3)=79O:U(2,3)=80P:U(3,3)=32 :U(4,3)=81Q:U(5,3)=65A:U(6,3)=83S (**** pokeo de puertos, valores y codes #dr=59528:I=16 BAL=A(u(i,1)):BBAJ=B(u(i,1),BAL):dr,BAL:dr=dr+1:dr,BBAJ:dr=dr+1:dr,u(i,2):dr=dr+1:dr,u(i,3):dr=dr+1 I  H opcion 4 I95255%:500 R*** moNTAR EDIFICIOS **** SCHAR "LI-CO-IK-PA-AL","GRAF" T5LLAMADA NECESITA EL RESTORE A LA LINIA Y NUMBLOQUES UI=1NB:A$,J$:J=0̰A$(9 10 )-1:A$(12)+J,A$(34);ٰA$(56);ڰA$(78);j$:J:I:  J"++++++++++ PANTALLAS +++++++++++ K"********* PANTALLA 1 ********** L#1101M:NB=9 :850R Mh"0101000304","","1001000605","","1104000604","","130200070Track-Info  R 2","" Nb"1208000703","","1015000505","","1311000602","","1126070002","","0919000706","" e^i=18:8,120x+((i*i)/3):3;2;231,0:i j10 ,25;2;0;"";0;2;"";13 ,21;0;5;"";14,21;6;"": "********* PANTALLA 2 *********** z7:0:i=412 :i,5;"":i:12 ,10 ;2;6;"b" 11 ,11 ;"ccc";12 ,11 ;"";12 ,19;"";1;"";0;"";1;13 ,5;"eeeeeeeeeeeeeeeeeeeeeeee";8,7;"";9 ,7;""; 511 ,24;"lrtx";12 ,24;"msuy" 111 ,16;"-1";12 ,16;"23"  !******** PANTALLA 3 *********** %i=610 :i,3;0;7;"";1;"";0;"";1;"";0;"":i:i=611 5:i,3;5;0;"eeeeeeeeeeeeeeeeeeeeeeeeee":i:9994 ':8,11 ;2;7;"No correr":9996 ' R1,4;1;5;"";1,18;"" R2,4;1;5;"";2,18;"" F x******** PANTALLA 4 ******** yi=119:i,1;1;"";0;5;"`";7;"";5;0;"";:i:i=9 19:i,15;7-(1i<14);"";:i:i=8146:i,15;5;0;"eeeeeeeeeeeeeee":i:8,12 ;0;7;"";12 ,24;0;"ccccc";13 ,24;"":9994 ':10 ,18;2;7;"No saltar":9996 '  ******* PANTALLA 5 ********* \i=210 :i,2;7;0;"";6;"";0;7;"";1;6;"";7;".":i:i=13 19:i,2;7;0;".":i:i=11 12 :i,2;5;0;"":i:9994 ':15,2;6;0;"OJETENLABS":9996 ' #1445:nb=5:850R ^"1324000107","","1518000605","","1423000606","","1621000504","","1820000702",""  **** fachada ojetenlabs **** Hi=213 :i,10 ;5;0;"":i Si=13:10 +i,6;0;5;"":i fi=13:10 +i,12 -i;5;0;"";7;"";5;"":i Gi=56:i,9 ;6;0;"":i J9994 ':6,12 ;7;0;"OJETENLABS":9996 '  k****** EXPLOSION ****** l~1:8:8:I=16:J=I-1:0.003xD,15-(i*2):0.002xn,5-(i*2) n7LI-I,CO-I;A$(1);LI-I,CO+I+1;A$(2) rGLI+I+1,CO-I;B$(1);LI+I+1,CO+I+1;B$(2) v7LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2) zGLI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) |i ~j=6:LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2);LI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) 0:7:0: .+++++++++++TINTA FONDO VINYETA++++++++++++++ Qi=li+1lf-1:i,ci+1;pa;ik;f$(1((cf-ci)-2)):i  .++++++++++++++TEXTO VINYETA+++++++++++++++++ Dlinias=(t$)/(cf-ci):(linias)>1linias=(linias)+1 ~9994 ':i=1linias:ini=(cf-ci-2)*(i-1):fin=ini+(cf-ci-2):fin>t$t$=t$+e$(1(fin-t$)) Ali+i,ci+1;7;0;1;t$(ini+1fin) i 9996 ':0: i=1linias: ?li+i,ci+1;pa;8;0;e$(1cf-2) i  /+++++++++++++APAGAMOS VINYETA++++++++++++++++  hf$="":i=LILF:i,ci;1;0;1;F$(1(cf-ci)):i  )++++ dibujar marco y fondo vinyeta ++++ &f$=""  i=lilf %5i,ci;7;0;0;f$(1cf-ci); *i /0:((ci)*8)+3,((21-li)*8)+4:((cf-ci-1)*8),0:0,-(lf-li)*8-1:-((cf-ci-1)*8),0:0,(lf-li)*8Track-Info  R  4 "***** Movimientos mutantes ***** c$="lpvxlpvx":d$="mqwymqwy" j=1:i=coacof-1 @lia,i;c$(jj+3);"";lia+1,i;d$(jj+3);""; #j=j+1:j>4j=1 00.006yD,30+i:0.002xn,20+j i  ".005y# >,12 :.005y# >,10.88.z:.005y# >,8.84 p:.005y# >,7.02` :.005y# >,4.98\(:.005y# >,3.86w =q:.005y# >,2.039~:.005y# >,0: ".005y# >,0:.005y# >,2.039~:.005y# >,3.86w =q:.005y# >,4.98\(:.005y# >,7.02` :.005y# >,8.84 p:.005y# >,10.88.z:.005y# >,12 : #' #/si llamo por aqui, restauro a UDGS originales #9110#:9101# #'****** UDG's especiales para el comic # 9102# # F="C"""+7:A:F,A:F #M60<,126~,90Z,126~,60<,165,153,66B #I60<,24,24,24,36$,36$,36$,66B #M240,248,72H,524,36$,200,240,32 # ***** uDG's orignales #M0,15,63?,121y,119w,239,239,255 #O0,240,252,254,254,255,239,255 #L75K,101e,170,174,64@,28,38&,60< # %4**************** pantalla de inicio ************** %9994 ':i=012 :i,0;0;1+(i>11 );,,:i:I=13 21:I,0;6;,,:i %i=18:0,80P+((i*i)/3):1;2;255,0:i:12 ,25;6;2;"" %e9505!%:i=17:li,co,pa,al,z$:j=0al-1:li+j,co;0;pa;z$:j:i %!6,11 ,1,8,"",8,10 ,6,6,"",9 ,14,7,5,"",10 ,17,2,3,"",11 ,21,1,3,"",12 ,18,5,3,"",12 ,8,1,3,"" %0 9994 ' %1O95222%:xx=0:j=13:a$,li,co:605]:j:9996 ' %2Y"1 Intro",16,10 ,"2 Redefinir",17,10 ,"3 Jugar",18,10 %4 %6:9994 ':xx=1:li=15:co=0:a$="Para Freya, seras capaz":600X:li=16:co=0:a$="de hacer cosas maravillosas":600X:0 %99996 ': %:CHAR radiactivo 'Mi=16:u(i,1);",";u(i,2);" c:";(u(i,3)):i: ' =236066\,160:236077\,231::CHAR normal ' 7236066\,0:236077\,60<::Bmn CHAR ' 0236066\,211:236077\,233: ' I=0184:(59528+I);"->";(59528+I)*256+(59528+i+1);",";(59528+i+2):I: '59527:"batmanol.a"59552:"batmanol.b"65368X::5,9 ;6;2;1;"PARE LA CINTA":0:1 a<k@xypaba  ttiniani2s ioooiaaspsp _OP QAS,~}{wo>;[7/^W=O] ] # E]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Y\ -1W\ 23F]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Jrecojan primero el mutagenoZ\n\m\mX Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX SDET<=UTUV>?B>?CTUD>?K2A\#006:-((cf-ci-1)*8),0:0,(lf-li)*8Track-Info  R PLUS3DOSkCk'YeHa(i)=(i/256) $b(n,a)=n-(a*256) kLET bytealto=FN a(x): LET bytebajo=FN b(x,bytealto): POKE ADR,bytebajo: LET adr=adr+1: POKE adr,bytealto: 745:500 Movimiento:lii,coi inicial. lia,coa actual - lif,cof final. lan, can anterior - FT orientacion ISP indice sprite ispi = indice sprite inicial. ispf = final isp = I.sprite >a$=x$(ispisp+1):b$=z$(ispisp+1):c$=a$:d$=b$ <1;8;8;lia,coa;a$;lia+1,coa;b$ 7(mov=2lia=lif)(mov2coa=cof)44, rlan=lia:can=coa:coa=coa+(ftmov=1):lia=lia+(ftmov=2)+(ftymov=3):coa=coa+(ftmov=3) $flan,can;8;8;8;1;c$;lan+1,can;d$;lia,coa;a$;lia+1,coa;b$; &2mov=1isp=isp+2:isp=ispfisp=ispi (>c$=a$:d$=b$:a$=x$(ispisp+1):b$=z$(ispisp+1) * 24 , .2+++++ imprime en pos actual, sprite actual +++++ 05lia,coa;8;8;a$;lia+1,coa;b$: 2>lia,coa;8;8;1;a$;lia+1,coa;b$: d:0:0::e$="" gFX$="DEHIHIHIHIDEPQTUTUXYXYXYXYXY":Z$="FGNOLMNOJK<=RS>?VW^_Z[^_\]^_" j{fty=0:ci=0:cf=31:li=0:lf=15:2075:pa=2:ik=0:2000:1100L:pa=3:t$="09:27 PM, Lloricatown...":2010:2035:t$="En plena ronda nocturna (bueno, no muy nocturna)...":2010:2035:t$="Batmanolo,guardian de Lloricatown, ve un destello sospechoso...":2010:2035 misp=13 :2035:pa=2:lia=2:coa=28:mov=2:cof=28:lif=11 :ft=1:10 :lia,coa;1;8;8;a$;lia+1,coa;b$ pispi=19:isp=17:ispf=27:lia=11 :coa=28:cof=23:ft=-1:mov=1:10 :a$="TU":b$="VW":480 s}i=1502:13 ,16;1;0;6;"":13 ,16;1;5;0;"":i vjt$="Anda! un destello sospechoso!... mmMMmm algo raro pasa en OjetenLabs. Echare un vistazo":2010 yisp=13 :pa=3:2035:pa=2:502:isp=17:ispf=27:mov=1:ft=-1:lia=11 :coa=23:cof=21:10 :b$=d$:502 |isp=15:mov=3:ft=-1:fty=-1:lia=11 :lif=7:coa=21:cof=17:10 :502 isp=13 :lia=8:coa=17:mov=2:lif=13 :ft=1:10 :lia,coa;0;2;"";lia+1,coa;a$:2060  ****** vinyeta 2 ***** Vci=1:cf=26:li=1:lf=14:2075:pa=2:2000 1500 t$="Mientras tanto,En los laboratorios ojetenlabs":2010:t$="El doctor Jose Antonio Malvado ultima su plan para dominar la ciudad":2010:9100# 0:J=02:I=810 :I,15-J;5;0;"";I,16+J;"":I:0.01z# >,45-:J Y$="-1":W$="23":i=13:9 ,19-i;4;0;Y$(1i);7;10 ,19-i;W$(1i):30:i li=13:9 ,17;4;" ":20:9 ,17;4;"-1":20:i 100d:J=02:I=810 :I,12 +J;5;0;"";I,19-J;"":I:0.01z# >,25:J 2060  +++++++ vinyeta 3 +++++++ Wci=2:cf=31:li=16:lf=20:2075:pa=0:2000 L18,28;4;0;"-1";19,28;7;"23" li=16:ci=2:cf=28:t$="colarse ha sido facil, ahora conectare mi gas mutagenico en la camara":2010:cf=31:2060  ++++++++ vinyeta 4 ++++++ Jci=4:cf=30:li=3:lf=14:2075:1200 2i=411 :i,20;0;"";:i A10 ,20;0;0;"";11 ,20;"" ni=11 4-1:i,20;6;0;1;"":0.01z# >,10 +i:i:100d t$="El mutageno transformaraa este pringao en un mutante servicial":2010:11 ,16;" ";12 ,16;"""#":8888" Xi=711 :i,20;6;0;1;1Track-Info  R ;"";:i:100d #i=120:8;8;8;10 ,20;"x";11 ,20;"":0.01z# >,20+i:8;8;8;10 ,20;"";11 ,20;"y":0.01z# >,30+i:i:10 ,20;8;8;8;"n";11 ,20;"o" t$="Funciona! Cargare el gasen los misiles que he robado de Ojetenlabs... ":2010:t$="y he llevado a la base secreta a las afueras deLloricaTown":2010 -->entra batmanolo -11 ,5;"E";12 ,5;"G" :t$="Todo Lloricatown sera mutante!!..."+f$:2010 /11 ,5;"DE";12 ,5;"FG" >t$="Todo Lloricatown Estara a mis ordenes..."+f$:2010 Zt$="Y para? Aburrirlos con tus frases?":ci=5:li=7:cf=26:2010 o11 ,17;"-1";12 ,17;"23":t$="que?":li=10 :ci=18:cf=24:2010 %i=710 :11 ,i;"/" $i>711 ,i-1;"" 0.01z# >,35# i >ci=4:cf=30:li=3:lf=14:2060  ++++++++ Vinyeta 5 +++++++++ >li=1:lf=10 :ci=1:cf=14:2075 8,2;1;"eeeeeeeeeee";9 ,2;"":9993 ':5,6;6;0;"&'";6,6;"()";4,6;"";7,6;"":9996 ' i100d:i=25:5,i;"/":0.01z# >,35#:i:5,i;6;0;"" N9993 ':li=5:co=7:a$="&'":b$="()":1900l:9996 ' >li=1:lf=10 :ci=1:cf=14:2060  ++++++++ vinyeta 6 +++++++ Vli=1:lf=4:ci=14:cf=29:pa=0:2075:2000 2,26;4;0;"-1";3,26;7;"23":t$="nooo! El mutageno!":li=1:ci=14:cf=26:2010:cf=29:2060  ++++++++ vinyeta 7 ++++++ nli=5:lf=14:ci=1:cf=30:2075:pa=7:ik=0:2000:1202 13 ,2;5;0;"eee";11 ,8;0;7;"DE";12 ,8;"FG";11 ,15;"";12 ,15;""; ?t$="muere!":li=9 :ci=16:cf=24:2010  11 ,15;"-1";12 ,15;"23";10 ,16;"":20:11 ,14;1;4;"":0.1}L,502:40(:0.1}L,20  491,130:3,-8:-1,8:96`,130:-3,-8:1,8:0.1}L,20 20:i=13:1:0.01z# >,10 :524,122z:21,-42*:92\,122z:-20,-42* T524,122z:21,-42*:92\,122z:-20,-42*:i  0 pa$="DE":b$="FG":li=11 :co=8:11 ,8;1;" !";12 ,8;"""#":1900l At$="Mi traje!":li=9 :ci=2:cf=13 :2010 st$="a correr!":li=9 :ci=2:cf=13 :2010:10 ,2;7;0;"" !Gx$=" !$%$%$%$% !@A01014545454545":z$="""#&'()&'*+()BC8923678967:;67" $&lia=11 :coa=8:mov=1:cof=2:ft=-1:ik=0:ispi=19:isp=17:ispf=27:0:11 ,8;1;" !";12 ,8;"""#":20:11 ,2;"";12 ,2;"";11 ,15;" ";12 ,15;"""#" 'Bt$="A por el!":li=9 :ci=15:cf=26:2010 *210 ,16;0;7;"" -11 ,24;"lpvx";12 ,24;"mqwy":t$="GNYE!":li=9 :ci=23:cf=30:2010:coa=23:cof=18:lia=11 :5100 0>li=5:lf=14:ci=1:cf=30:2060  3++++++ vinyeta 8 ++++++ 6Jli=0:lf=12 :ci=2:cf=30:2075:2000 9 1300 <lia=4:coa=28:mov=1:cof=3:ft=-1:ispi=19:isp=17:ispf=27:20:4,3;"";5,3;"" ?4coa=23:cof=3:lia=4:5100 B*** Vinyeta 9 ******* Eb2060 :li=0:lf=20:ci=0:cf=31:2075:2000:1400x Hlia=6:coa=28:mov=1:cof=17:ft=-1:ispi=19:isp=17:ispf=27:20:t$="me pisan los taloneTrack-Info  R s! Rapido!al ascensor! He de SALTAR!":LI=0:CI=0:CF=31:2010 Kzb$=d$:502:isp=15:mov=3:ft=-1:fty=-1:lia=6:coa=16:cof=14:20 N^b$=d$:502:isp=15:mov=3:ft=-1:fty=1:cof=12 :20 Q`502:lia=7:isp=13 :mov=2:lif=18:ft=1:20:502 Tu9994 ':t$="Ostiaaaa":i=1̱t$:0;1;7;11 +i,12 ;t$(i);"";:i:9996 ' W5lia=6:coa=24:cof=16:5100 Z30:6,16;"n";7,16;"o":20:9994 ':5,16;0;7;1;"sa matao Paco":9996 ':0:li=0:ci=0:cf=31:lf=20:2060  ]+++ vINYETA 10 +++++ `Uli=1:ci=1:cf=28:2075:pa=1:ik=7:2000 c 1430 f{isp=13 :mov=2:lia=2:lif=9 :coa=5:ft=1:20:lia,coa;"";lia+1,coa;a$ ihI=12:.004yn,1:.003xD,-12 :.005y# >,-20:.003xD,1:.004yn,-6:.002xn,6:.007ye`A,-13 :.003xD,-23:.004yn,-12 :.003xD,9 :.003xD,-9 :.002xn,-4:.005y# >,-30:.007ye`A,-3:.005y# >,-5:.002xn,-2:I llia+1,coa;" !" o*t$="la virgen, que ostion!":2010 r0lia,coa;" !";lia+1,coa;"&'":100d ulia,coa;1;" !";lia+1,coa;"&'":mov=1:cof=14:ft=1:ik=0:ispi=3:isp=1:ispf=9 :20:lia+1,coa;8;8;1;d$;lia+1,coa;"&'";:t$="Veo restos de mi traje esparcidos por la ciudad":LI=1:CI=1:CF=28:2010:t$="Y El mutageno!Ha caido por todo LLoricaTown!":2010 xBt$="RECUPERARE EL Traje, RECUPERARE el mutageno":2010 {3t$="ANULARE el lanzamiento demisiles":2010 ~=t$="y volvere a Ojetenlabs a detener al doctor":2010 `502:isp=5:mov=3:ft=1:fty=-1:cof=16:20:502 isp=13 :mov=2:lif=18:ft=1:lia=8:20:lia,coa;8;8;1;a$;lia+1,coa;b$:9097#:restaura UDGs originales 0::9994 ':394:l=18:j$,j:k=15-(j$)/2:i=20j-1:i,k;6;0;j$;i+1,k;0;j$:i:3:l "recupera el traje",6," recupera el mutageno!",7,"anula el lanzamiento de misiles",8,"vuelve a Ojetenlabs",9 ,"y deten al doctor",10 ,"Jose Antonio Malvado",11 ,"antes de que sus mutantes",13 ,"recojan primero el mutageno",14  0 $i=114:3582 :i !****** MENU PRINCIPAL ********* 0:0:0::9500%:9994 ':501:xx=0:j=12:a$,li,co:605]:j:0:7:#1;"1989,2023 ANGEL LASTRE":9996 ' V"BATMANOLO CONTRA EL",1,6,"ATAQUE MUTANTE A LLORICATOWN",3,2 ix=1:x$=" Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX " li=6:co=9 :la=5:ca=8:il=1:ic=1:s$="DE":T$="<=":u$="TU":V$=">?":a$=s$:b$=t$:c$=a$:d$=b$:ct=3:cta=2:it=1 /8;8;la,ca;A$;la+1,ca;B$ li,co;1;8;8;8;A$;li+1,co;b$;la,ca;c$;la+1,ca;d$:la=li:ca=co:li=li+il:co=co+ic:c$=a$:d$=b$ k$=:k$""615g & li>19li<1il=-il 0+co>29co<1ic=-ic:580D : 9994 ' >&21,0;x$(ixix+31) ?ix=x$-31ix=0 C&ix=ix+1:9996 ':530 Da$=s$a$=u$:b$=v$: Na$=s$:b$=t$: W X$++++++ letras de colorines ++++++ ]pa=8:i=1̱a$: ^%xx=1pa=1+(*7) _a$(i)=" "pa=8 bGli,co;9Track-Info  R          ;pa;a$(i):co=co+1:.001wn,40(-co:i: gk$="1"100d hk$="2"700 ik$="3"9994 ':0,4;2;6;1;"Cargando...pulse PLAY":19,0;0:"batmanol.c" jk$="4"840H k opcion 2 REDEFINE  :9994 ':ct=1:23658j\,8:x=20:y=16:t(44,):a$="Puerto = 256*(255-t(x)) + 254":a$="Teclas Spc,Sym,M,N,B":t(44,)=224:t(44,)=224:t(30)=224+27:t(31)=224+23:t(19)=224+15::a$="Teclas Ent,L,K,J,H":t(44,)=192+30:t(29)=192+29:t(28)=192+27:t(27)=192+23:t(25)=192+15::a$="Teclas P,O,I,U,Y":t(33!)=160+30:t(32 )=160+29:t(26)=160+27:t(38&)=160+23:t(42*)=160+15::a$="Teclas 0,9,8,7,6":t(1)=128+30:t(10 )=128+29:t(9 )=128+27:t(8)=128+23:t(7)=128+15::a$="Teclas 1,2,3,4,5":t(2)=96`+30:t(3)=96`+29:t(4)=96`+27:t(5)=96`+23:t(6)=96`+15::a$="Teclas Q,W,E,R,T":t(34")=64@+30:t(40()=64@+29:t(22)=64@+27:t(35#)=64@+23:t(37%)=64@+15::a$="Teclas A,S,D,F,G":t(18)=32 +30:t(36$)=32 +29:t(21)=32 +27:t(23)=32 +23:t(24)=32 +15::a$="Teclas Caps,Z,X,C,V":t(44,)=0+30:t(43+)=0+29:t(41))=0+27:t(20)=0+23:t(39')=0+15 i=317:i,1;1;""::i:2,1;7;0;"CONTROLES":li=5:co=2:a$="Izquierda?":600X:724:puI=p:vI=aux:li=7:CO=2:a$="Derecha?":600X:724:puD=p:vD=aux:li=9 :CO=2:a$="Lanzar arma?":600X:724:puL=p:vL=aux:a$="Salto?":LI=11 :CO=2:600X:724:puS=p:vS=aux:LI=13 :CO=2:a$="Usar ascensor?":600X:724:puA=p:vA=aux:li=15:co=2:a$="Cambio Manolo/Batmano?":600X:724:puT=p:vT=aux:18,1;7;0;"OK!"::750:0:9996 '::500 A$=:A$=""724 X32 =a$aux=30:p=7:A$="SP":736:caso especial Tecla Espacio W13 =a$aux=30:p=6:a$="Ent":736:caso especial Tecla Enter Mp=0:aux=t(a$-47/):aux128aux=aux-128:p=4 -aux64@aux=aux-64@:p=p+2 -aux32 aux=aux-32 :p=p+1 hp=2^p:p=256*(255-p)+254:aux=160+aux:PRINT "Puerto: ";p;" Valor: ";aux Fu(ct,1)=p:u(ct,2)=aux:u(ct,3)=A$:ct=ct+1 8li,25;0;6;;A$:0.01z# >,3  6u(6,3):u(1,1)=57342:u(2,1)=57342:u(3,1)=32766:u(4,1)=64510:u(5,1)=65022:u(6,1)=65022:u(1,2)=189:u(2,2)=190:u(3,2)=190:u(4,2)=190:U(5,2)=190:U(6,2)=189:U(1,3)=79O:U(2,3)=80P:U(3,3)=32 :U(4,3)=81Q:U(5,3)=65A:U(6,3)=83S (**** pokeo de puertos, valores y codes #dr=59528:I=16 BAL=A(u(i,1)):BBAJ=B(u(i,1),BAL):dr,BAL:dr=dr+1:dr,BBAJ:dr=dr+1:dr,u(i,2):dr=dr+1:dr,u(i,3):dr=dr+1 I  H opcion 4 I95255%:500 R*** moNTAR EDIFICIOS **** SCHAR "LI-CO-IK-PA-AL","GRAF" T5LLAMADA NECESITA EL RESTORE A LA LINIA Y NUMBLOQUES UI=1NB:A$,J$:J=0̰A$(9 10 )-1:A$(12)+J,A$(34);ٰA$(56);ڰA$(78);j$:J:I:  J"++++++++++ PANTALLAS +++++++++++ K"********* PANTALLA 1 ********** L#1101M:NB=9 :850R Mh"0101000304","","1001000605","","1104000604","","130200070Track-Info ! R!!!!!!!!! 2","" Nb"1208000703","","1015000505","","1311000602","","1126070002","","0919000706","" e^i=18:8,120x+((i*i)/3):3;2;231,0:i j10 ,25;2;0;"";0;2;"";13 ,21;0;5;"";14,21;6;"": "********* PANTALLA 2 *********** z7:0:i=412 :i,5;"":i:12 ,10 ;2;6;"b" 11 ,11 ;"ccc";12 ,11 ;"";12 ,19;"";1;"";0;"";1;13 ,5;"eeeeeeeeeeeeeeeeeeeeeeee";8,7;"";9 ,7;""; 511 ,24;"lrtx";12 ,24;"msuy" 111 ,16;"-1";12 ,16;"23"  !******** PANTALLA 3 *********** %i=610 :i,3;0;7;"";1;"";0;"";1;"";0;"":i:i=611 5:i,3;5;0;"eeeeeeeeeeeeeeeeeeeeeeeeee":i:9994 ':8,11 ;2;7;"No correr":9996 ' R1,4;1;5;"";1,18;"" R2,4;1;5;"";2,18;"" F x******** PANTALLA 4 ******** yi=119:i,1;1;"";0;5;"`";7;"";5;0;"";:i:i=9 19:i,15;7-(1i<14);"";:i:i=8146:i,15;5;0;"eeeeeeeeeeeeeee":i:8,12 ;0;7;"";12 ,24;0;"ccccc";13 ,24;"":9994 ':10 ,18;2;7;"No saltar":9996 '  ******* PANTALLA 5 ********* \i=210 :i,2;7;0;"";6;"";0;7;"";1;6;"";7;".":i:i=13 19:i,2;7;0;".":i:i=11 12 :i,2;5;0;"":i:9994 ':15,2;6;0;"OJETENLABS":9996 ' #1445:nb=5:850R ^"1324000107","","1518000605","","1423000606","","1621000504","","1820000702",""  **** fachada ojetenlabs **** Hi=213 :i,10 ;5;0;"":i Si=13:10 +i,6;0;5;"":i fi=13:10 +i,12 -i;5;0;"";7;"";5;"":i Gi=56:i,9 ;6;0;"":i J9994 ':6,12 ;7;0;"OJETENLABS":9996 '  k****** EXPLOSION ****** l~1:8:8:I=16:J=I-1:0.003xD,15-(i*2):0.002xn,5-(i*2) n7LI-I,CO-I;A$(1);LI-I,CO+I+1;A$(2) rGLI+I+1,CO-I;B$(1);LI+I+1,CO+I+1;B$(2) v7LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2) zGLI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) |i ~j=6:LI-J,CO-J;A$(1);LI-J,CO+J+1;A$(2);LI+J+1,CO-J;B$(1);LI+J+1,CO+J+1;B$(2) 0:7:0: .+++++++++++TINTA FONDO VINYETA++++++++++++++ Qi=li+1lf-1:i,ci+1;pa;ik;f$(1((cf-ci)-2)):i  .++++++++++++++TEXTO VINYETA+++++++++++++++++ Dlinias=(t$)/(cf-ci):(linias)>1linias=(linias)+1 ~9994 ':i=1linias:ini=(cf-ci-2)*(i-1):fin=ini+(cf-ci-2):fin>t$t$=t$+e$(1(fin-t$)) Ali+i,ci+1;7;0;1;t$(ini+1fin) i 9996 ':0: i=1linias: ?li+i,ci+1;pa;8;0;e$(1cf-2) i  /+++++++++++++APAGAMOS VINYETA++++++++++++++++  hf$="":i=LILF:i,ci;1;0;1;F$(1(cf-ci)):i  )++++ dibujar marco y fondo vinyeta ++++ &f$=""  i=lilf %5i,ci;7;0;0;f$(1cf-ci); *i /0:((ci)*8)+3,((21-li)*8)+4:((cf-ci-1)*8),0:0,-(lf-li)*8-1:-((cf-ci-1)*8),0:0,(lf-li)*8Track-Info " R"""""""""  4 "***** Movimientos mutantes ***** c$="lpvxlpvx":d$="mqwymqwy" j=1:i=coacof-1 @lia,i;c$(jj+3);"";lia+1,i;d$(jj+3);""; #j=j+1:j>4j=1 00.006yD,30+i:0.002xn,20+j i  ".005y# >,12 :.005y# >,10.88.z:.005y# >,8.84 p:.005y# >,7.02` :.005y# >,4.98\(:.005y# >,3.86w =q:.005y# >,2.039~:.005y# >,0: ".005y# >,0:.005y# >,2.039~:.005y# >,3.86w =q:.005y# >,4.98\(:.005y# >,7.02` :.005y# >,8.84 p:.005y# >,10.88.z:.005y# >,12 : #' #/si llamo por aqui, restauro a UDGS originales #9110#:9101# #'****** UDG's especiales para el comic # 9102# # F="C"""+7:A:F,A:F #M60<,126~,90Z,126~,60<,165,153,66B #I60<,24,24,24,36$,36$,36$,66B #M240,248,72H,524,36$,200,240,32 # ***** uDG's orignales #M0,15,63?,121y,119w,239,239,255 #O0,240,252,254,254,255,239,255 #L75K,101e,170,174,64@,28,38&,60< # %4**************** pantalla de inicio ************** %9994 ':i=012 :i,0;0;1+(i>11 );,,:i:I=13 21:I,0;6;,,:i %i=18:0,80P+((i*i)/3):1;2;255,0:i:12 ,25;6;2;"" %e9505!%:i=17:li,co,pa,al,z$:j=0al-1:li+j,co;0;pa;z$:j:i %!6,11 ,1,8,"",8,10 ,6,6,"",9 ,14,7,5,"",10 ,17,2,3,"",11 ,21,1,3,"",12 ,18,5,3,"",12 ,8,1,3,"" %0 9994 ' %1O95222%:xx=0:j=13:a$,li,co:605]:j:9996 ' %2Y"1 Intro",16,10 ,"2 Redefinir",17,10 ,"3 Jugar",18,10 %4 %6:9994 ':xx=1:li=15:co=0:a$="Para Freya, seras capaz":600X:li=16:co=0:a$="de hacer cosas maravillosas":600X:0 %99996 ': %:CHAR radiactivo 'Mi=16:u(i,1);",";u(i,2);" c:";(u(i,3)):i: ' =236066\,160:236077\,231::CHAR normal ' 7236066\,0:236077\,60<::Bmn CHAR ' 0236066\,211:236077\,233: ' I=0184:(59528+I);"->";(59528+I)*256+(59528+i+1);",";(59528+i+2):I: '59527:"batmanol.a"59552:"batmanol.b"65368X::5,9 ;6;2;1;"PARE LA CINTA":0:1 a<k@xypaba  ttiniani2s ioooiaaspsp _OP QAS,~}{wo>;[7/^W=O] ] # E]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Y\ -1W\ 23F]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ Jrecojan primero el mutagenoZ\n\m\mX Teclas por defecto (O,P,Q,A,space,S) para spectrum issue 3. Modificalas si no es tu caso. BatManolo(...) es una reimaginacion del primer juego que realice en basic, intentando mantener la esencia del original pero dandole la jugabilidad que no consegui en su momento. Se ha codificado integramente en Basic del spectrum y despues se ha compilado. Gracias a Ignacio Cobo por su rutina de redefinicion de teclado y al canal de Telegram Curso Basic ZX SDET<=UTUV>?B>?CTUD>?K2A\#006:-((cf-ci-1)*8),0:0,(lf-li)*8Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''